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En el siglo XVII, durante una epidemia de peste, las grandes universidades 
cerraron sus puertas y los estudiantes se marcharon a sitios más seguros. 
Durante este lapsus educacional, un joven se inspiraba con la imagen de una 
manzana en proceso de caída. Este no sólo se apercibió de una posible teoría 
del movimiento. de los planetas, sino de un método de cálculo por el cual 
determinados problemas, hasta el momento irresolubles, podrían tener solu- 
ción. El cálculo integral había nacido. 

El cálculo de Sir Isaac Newton presumía que el espacio era continuo y que 
podían llevarse a cabo subdivisiones teóricas hasta el infinito. Esta presunción 
ha sido cuestionada tres siglos después por la mecánica cuántica y violada por 
la matemática fractal. 

La matemática y la física newtonianas nos resultan de gran utilidad para la 
mayor parte de los problemas y nos recuerdan que esa valiosa originalidad no 
es un tema de debate para una clase, sino que puede encontrarse, a menudo, 
en los ojos de un soñador. 

Este volumen está dedicado a: 


SIR ISAAC NEWTON 
Soñador y Matemático 
1642 - 1727 


¿Qué otras maravillas podría habernos enseñado si hubiera vivido tres si- 
glos más tarde y usado nuestros juguete: 
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Introducción 


Los gráficos, dejando a un lado los juegos de niños y el entretenimiento de 
miembros de consejos de administración son un asunto serio. Los gráficos 
están en el corazón y en el alma de toda labor realizada con un computador, 
desde la edición hasta el diseño asistido por computador (CAD), desde la 
matemática discreta hasta la química experimental, así como en otros miles 
de campos diferentes. 

Los gráficos son algo más que juguetes, son secuencias de código de gran 
densidad. Á veces, requieren de mucho más código para su ejecución que el 
grueso de un programa de aplicación. 

Independientemente de lo que Vd. sienta por los gráficos de computador, 
ellos están ahí, incrementando su popularidad. A veces constituyen la única 
solución razonable a las necesidades de un programa de aplicación. 


Temas y objetivos 


Dado que la programación de gráficos no es un tema sencillo y cubre un área 
muy importante, este libro se divide en cuatro secciones: 


M Primera parte: Introducción a la programación de gráficos. 
Cubre las funciones básicas que Turbo C++ suministra para el trata- 
miento de gráficos, y aporta ideas para obtener nuevas perspectivas 
sobre las funciones de biblioteca ya existentes. 

M Segunda parte: Uti n de los gráficos de Turbo C++. 
Cubre las funciones de biblioteca y sus extensiones, que abarcan desde 
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los gráficos comerciales hasta las animaciones más sencillas, con de- 
mostraciones del uso de sus propiedades. 


Las aplicaciones gráficas varían en materia y tipo, siendo de gran relevan- 
cia las referentes a los gráficos comerciales, que permiten convertir figuras en 
formas de fácil interpretación. Sin embargo, los gráficos comerciales son muy 
sencillos y no necesitan disponer de gran potencia en la interacción con el 
usuario. 

EP_GRAPH y LJ_GRAPH proporcionan controladores de impresoras láser 
y de matrices de puntos, de forma que se convierten en una gran ayuda para 
hacer impresiones instantáneas de las pantallas asociadas a las aplicaciones 
gráficas. 


M Tercera parte: Gráficos orientados a objetos en Turbo C++. 
Presenta la técnica de la programación orientada a objetos gráficos. 
Asimismo presenta diversos objetos gráficos que serán utilizados pos- 
teriormente, tales como el ratón, el botón gráfico, la barra de desplaza- 
miento de pantalla y el icono. 


Distintas aplicaciones gráficas requieren diferentes grados de interacción. 
Así, el ratón se convierte en un dispositivo de entrada de datos de gran uso. 
Esta sección discutirá la creación de un interfaz orientado a objetos para dicho 
dispositivo. 

En gran número de ocasiones, los gráficos se convierten en el método 
interactivo más esperado por el usuario —superando a veces los menús de 
texto—. En otros casos, tales como los botones gráficos y las barras de des- 
plazamiento, los elementos de control gráfico son más adecuados que las 
opciones de texto. Los iconos se utilizan en la más amplia gama de aplicacio- 
nes, desde lo burdo hasta lo sublime. 


M Cuarta parte: Fractales y otros fenómenos extraños. 
Esta sección introduce el concepto de matemática fractal. Además se 
presentan animaciones gráfico-matemáticas. 


Introducción a los objetos gráficos 


Este libro es una introducción a la programación gráfica en su sentido más 
amplio, incluyendo la técnica orientada a objetos gráficos. Este volumen no 
es una introducción a la programación orientada a objetos y requiere conoci- 
mientos generales de programación, tanto en C como en C++. 


Si Vd. desea instruirse en C++ y en la técnica orientada a objetos, le 
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recomiendo el libro Turbo C++ Programming: An Object-Oriented Approach 
(disponible en la editorial Addison-Wesley). 

Si Vd. se está iniciando en la programación en C, le mostraré al menos las 
bases de la programación de gráficos, así como una gran variedad de posibi- 
lidades en el entorno de la programación orientada a objetos. 


Primera parte 


Introducción a la 
programación de gráficos 


Cuando los primeros computadores vieron la luz, las CPUs de 8 bits y las 
arquitecturas en bus de 16 Kb de RAM eran algo normal; las velocidades de 
reloj de 2 MHz se consideraban rápidas, y las pantallas de vídeo con 25 líneas 
de 80 caracteres estaban en la cumbre. En caso de necesitar pantallas gráficas, 
los conjuntos de caracteres gráficos basados en memoria ROM eran la única 
alternativa al juego de caracteres ASCII. Había poca oferta de acceso directo 
a la memoria de vídeo y las limitaciones de CPU y memoria del sistema 
hacían complicada su utilización. 

En esta época, los computadores se dividieron en dos clases: los computa- 
dores serios que se centraban en el uso eficaz de la memoria y disponían de 
velocidades de acceso rápidas, y los sistemas "orientados a juegos" que sacri- 
ficaban gran parte de sus posibilidades en favor de la capacidad gráfica mo- 
nocromo o color. 

Posteriormente, con la llegada de las CPUs más potentes, los sistemas 
operativos y las altas velocidades, se introdujeron más grados de libertad. Por 
ejemplo, para utilizar las series Z-100 de Heath/Zenith (el original del sistema 
MS-DOS) había a disposición del usuario tres bancos de memoria de vídeo, 
cada uno de 32 ó 64 Kb RAM, que permitían controlar los cañones de los 
colores rojo, azul y verde (en total 192 Kb). Si el Z-100 sólo tenía un banco 
de memoria (por omisión el banco del color verde), la limitación se extendía 
a la pantalla monocromo, mientras que si se disponía de los tres bancos de 
RAM de vídeo pero el monitor era monocromo, el color se simulaba con 
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"sombras de gris”. Con la ayuda de monitores en color de alta resolución, el 
usuario disponía de una extraordinaria capacidad de elección de entre ocho 
posibles colores (negro, azul, violeta, rojo, naranja, verde, amarillo y blanco). 

Sin embargo, el hecho de disponer de memorias de vídeo direccionables a 
nivel de pixel era mucho más importante ya que se disponía de 640 pixels en 
sentido horizontal y 225 pixels en vertical. Para el texto, la pantalla disponía 
de 25 líneas de 80 caracteres y no había diferencia entre este modo y el modo 
gráfico. Los caracteres de texto tenían una anchura de 8 pixels y una altura 
de 9 (incluyendo las prolongaciones, que son porciones de caracteres en mi- 
núscula que se extienden por debajo de la línea, como ocurre con las letras 8» 
j. p. q. y) y fueron creados como un conjunto de caracteres en memoria ROM 
que se escribían directamente sobre la memoria RAM del vídeo. 

Los pixels podían accederse individualmente sobre la memoria RAM del 
vídeo e intercalarse con los caracteres estándar sin necesidad de cambiar el 
modo de representación o bien sin rechazar un tipo de pantalla en favor de 
otra, 

La propuesta de diseño de IBM (utilizando básicamente la misma CPU, 
esto es una arquitectura de 16 bits con sistema operativo MS-DOS) eligió una 
configuración de hardware reducida. El primer PC de IBM montó un sistema 
RAM de vídeo bastante pobre (en torno a 4 Kb) orientado a pantallas no 
gráficas. Si se deseaba disponer de propiedades gráficas existía el adaptador 
gráfico de color CGA, servido como opción de compra, que permitía repre- 
sentar gráficos de alta resolución (640 x 200 pixels) con dos colores (mono- 
cromo) o bien en baja resolución (320 x 200) con pantalla de 4 colores, 
previamente seleccionados. 

En cierto modo, esto era similar a la famosa frase de Henry Ford, que 
permitía tener un modelo T en cualquier color, siempre y cuando éste fuera 
Negro. 

El cambio de un adaptador de vídeo era mucho más sencillo que tener que 
volver a pintar un coche y una gran cantidad de técnicos de desarrollo vieron 
el precio de los chips de RAM, calentaron sus soldadores y se lanzaron al 
mercado, creando tarjetas de vídeo más evolucionadas, como los adaptadores 
de vídeo Hércules, MCGA y EGA. 

Tal proliferación de hardware orientado al vídeo (que en la actualidad 
comprende al menos 10 adaptadores estándar) presenta bastantes problemas 
al programador. Cada hardware de vídeo tiene sus propiedades particulares, 
pudiendo utilizar diferentes direcciones de memoria, pudiendo no admitir la 
multiplicidad de páginas gráficas (y/o la multiplicidad de páginas de texto), o 
bien pudiendo admitir modos visuales que abarcan desde las pantallas de 
320x200 pixels hasta los 1.024x768, y desde el monocromo hasta las pantallas 
de 256 colores. 


INTRODUCCIÓN A LA PROGRAMACIÓN DE GRÁFICOS 3 


Por supuesto, el primer problema que debe afrontar un programador de 
gráficos es la identificación del adaptador gráfico que lleva cada computador. 

Una de las posibles opciones siempre ha sido preguntar al usuario final qué 
tipo de modo gráfico quiere utilizar. Esta opción es bastante pobre ya que 
incluso los programadores profesionales no siempre conocen el hardware con 
el que están trabajando, mientras que la media de los usuarios finales puede 
que no sepa, incluso, si disponen de adaptador gráfico y mucho menos de qué 
tipo es o qué propiedades tiene. Por lo tanto, la alternativa pasa por disponer 
de un software que pregunte al hardware qué configuración tiene. 

Si existiera un estándar de identificación del hardware, éste sería un asunto 
concluido. Para desgracia de los programadores, la proliferación del hardware 
de adaptación del vídeo ha sido tan rápida que no ha sido posible llevar a cabo 
una normalización de aquélla. En el libro Programming The IBM User Inter- 
face, publicado con anterioridad, debatí distintos métodos de comprobación 
de la presencia o ausencia de adaptadores de vídeo CGA/EGA, así como 
algunos de los problemas inherentes a la identificación del hardware. 

Felizmente, la salida a la luz de Turbo C++ (y Turbo Pascal 5.5) ha alige- 
rado gran parte de la indecisión existente, tanto a la hora de identificar las 
actuales tarjetas adaptadoras de vídeo, como a la hora de utilizarlas y mante- 
nerlas. Además, teniendo en cuenta el rendimiento de los anteriores productos 
Borland, parece casi seguro que los futuros adaptadores de vídeo también 
serán apoyados. 

Desafortunadamente, este mismo apoyo a los distintos adaptadores de ví- 
deo se ha convertido en un elemento de confusión a la hora de utilizar estas 
nuevas herramientas, aunque también abre un horizonte de nuevas posibilida- 
des. 

Esta confusión coincide precisamente con el objetivo de Programación de 
Gráficos en Turbo C++. 


Adaptadores de vídeo 
para gráficos 


Tanto Turbo C++ como Turbo Pascal se adaptan a la mayoría de las tarjetas 
de vídeo disponibles en el mercado actualmente. Este libro sólo tratará los 
gráficos en Turbo C++. Si Vd. utiliza Turbo Pascal, dispondrá de las corres- 
pondientes funciones (con los mismos nombres de funciones y procedi- 
mientos, y con la misma forma de operar). 

En la actualidad las tarjetas de vídeo van desde los sistemas de vídeo 
originales orientados al texto exclusivamente al de ultra alta resolución IBM- 
8514 (muy popular en las aplicaciones de proceso de textos y software de 
CAD), con gran variedad de resoluciones comprendidas entre ambas. Eviden- 
temente, las tarjetas de vídeo de más alta resolución deben coincidir con los 
monitores que tengan idéntica resolución en cuanto a pixels. Sin embargo, 
esto es un problema de hardware, debiendo suponer el usuario que el hardwa- 
re de que dispone corresponde al identificado por la función detectgraph de 
Turbo C++. Cualquier discrepancia surgida a la hora de confrontar tarjetas de 
vídeo y pantallas es responsabilidad del usuario final y no debería ser un 
problema para el programador, 


Modos de vídeo 


Todo PC, XT, AT o PS/2 viene equipado con algún tipo de tarjeta adaptadora 
de vídeo. Comenzando con una tarjeta sencilla, puede que Vd. disponga de un 
adaptador para pantallas monocromo (MDA) donde sólo pueda visualizarse 
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texto. Si éste es su caso, tenga por seguro que no podrá programar o visualizar 
gráficos sin introducir mejoras en su computador. 

El siguiente peldaño lo marca la popular tarjeta CGA (Adaptador de Grá- 
ficos en Color), mientras que el adaptador de gráficos monocromo Hércules, 
el Array de Gráficos Multicolor (MCGA) y el Adaptador de Gráficos Mejo- 
rado (EGA) proporcionan mayor resolución y opciones más amplias. Para 
necesidades gráficas más avanzadas, como el procesamiento de textos o las 
aplicaciones CAD, hay adaptadores de vídeo que ofrecen incluso mayor reso- 
lución en cuanto a pixels y mayores posibilidades de color; entre ellos están 
ATK£T (Adaptador Gráfico de 400 líneas), Array Gráfico de Vídeo (VGA), 
PC-3270 e IBM-8514. 


En Turbo C++, el acoplamiento a los anteriores adaptadores se produce a 
través de seis unidades de interfaz gráfico (.BGI), a saber, ATT, CGA, 
EGAVGA, HERC, IBM8514 y PC3270, y cuatro fuentes gráficas 
(GOTH.CHR, LITT.CHR, SANS.CHR y TRIP.CHR). Dado que irán surgien- 
do nuevas tarjetas gráficas de vídeo, también lo harán las unidades .BGI 


(mientras que las fuentes gráficas .CHR deberán ser creadas por el usuario). 
Las unidades de soporte gráfico no se incluyen en los modelos estándar de 
memoria, como ocurre en los distribuidos (omisión llevada a cabo con el 
único propósito de acelerar el tiempo de compilación cuando los gráficos no 
se necesitan). Para utilizar los módulos ficos existen dos opciones. 

Primera: Borland ha generado la biblioteca gráfica TLIB, siglas de Biblio- 
teca Turbo, distribuida con Turbo C. Si se utiliza TLIB, la biblioteca de 
gráficos (GRAPHICS.LIB) puede incorporarse en una o más de las bibliotecas 
de los modelos de memoria. El uso de TLIB se explicará con mayor detalle 
en el capítulo 9, Pantallas de Gráficos Comerciales. 

Segunda: Cada programa puede crear un archivo de proyecto .PRJ sin más 
que dar al enlazador la dirección de GRAPHICS.LIB y permitir al programa 
la carga de los archivos .BGI necesarios desde el disco cuando ello sea nece- 
sario. 

* En caso de realizar, con frecuencia, programación de gráficos, se reco- 
mienda incluir la biblioteca GRAPHICS.LIB en la biblioteca estándar. La 
utilidad BGIOBJ permite la conversión de los controladores gráficos .BGI y 
de los archivos de fuentes gráficas .CHR en archivos objeto, y así poder 
enlazarlos directamente con el programa (esto es, incluirlos directamente en 
el programa .EXE). 

Sin embargo, en el caso de las tareas de desarrollo y comprobación, podría 
ser conveniente llamar a GRAPHICS.LIB como segunda biblioteca y acceder 
externamente a los archivos .BGI y .CHR. 
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Inclusión de la biblioteca gráfica 


Imaginemos que queremos compilar el programa fuente llamado SU- 
PROGRMLC, utilizando la orden de compilación de Turbo C++ TCC.EXE en 
la línea de órdenes. La orden sería la siguiente: 


tcc suprogrm graphics.lib 


Esto supone que SUPROGRM.C y GRAPHICS.LIB se encuentran en el 
mismo directorio que TCC, por lo que no hace falta la especificación del 
camino de búsqueda. 

Si lo que queremos utilizar es el compilador integrado de Turbo C++ 
(TC.EXE) será necesario crear y seleccionar un archivo de proyecto y así 
indicar al enlazador que debe acceder a la biblioteca externa GRAPHICS.LIB, 
así como a la biblioteca estándar. Este archivo de proyecto es sencillo y, en 
el caso que nos ocupa, sólo necesitaría una línea: 


suprogrm graphics.lib 


Si GRAPHICS.LIB se encuentra en un subdirectorio distinto de aquél en 
el que se aloja el compilador, entonces deberá especificarse su camino en 
SUPROGRM.PRJ o bien deberá incluirse el camino en la configuración de 
entorno del compilador (se puede utilizar Alt-O para acceder a las opciones 
de menú; luego se seleccionará Environment). En cualquier caso deberá espe- 
cificar el nombre del proyecto SUPROGRM.PRI (la extensión .PRJ es opta- 
tiva y se asume por omisión) antes de seleccionar la opción RUN o antes de 
compilar el programa sobre el disco. 

La ausencia de funciones de biblioteca no provoca ningún mensaje de error 
durante la fase de compilación (sólo durante la segunda pasada del enlazador). 
Si el compilador encuentra correctas las funciones gráficas compiladas, no 
lanzará ningún mensaje de error (no se olvide de codificar en su programa 
fuente include graphics.h), será el propio enlazador el que lance dichos men- 
sajes, si no es capaz de acceder a los módulos de la biblioteca. 

Si desea especificar el nombre del archivo .PRJ deberá introducir la se- 
cuencia Alt-P para llamar al menú interactivo Proyect Menu. En estas circuns- 
tancias, seleccione la primera opción (Open Proyect...) e introduzca un nom- 
bre de proyecto, o bien utilice el ratón o las flechas del teclado para 
seleccionar el archivo .PRJ adecuado. 

Recuerde que si la opción Autosave está activa, el nombre dado al proyec- 
to permanecerá seleccionado para la próxima vez que utilice C++. La opción 
Close Proyect permite la cancelación de la selección anterior y así permitir la 
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compilación y la ejecución de un nuevo programa. Turbo C++ permite la 
consulta de listas de distintos archivos de proyecto. 


Desventajas 


Una vez compilado el programa (bien desde un archivo de proyecto, bien 
desde una línea de órdenes) puede procederse a la distribución del programa 
«EXE junto a los archivos externos .BGI y .CHR necesarios. Estos archivos 
necesitan alrededor de 60 Kb de espacio en disco (no es una gran cantidad en 
términos de almacenamiento, sin embargo puede traer problemas el hecho de 
confiar en los archivos externos a la hora de la ejecución). 

Primero: una llamada a initgraph debe incluir la especificación del camino 
de búsqueda o de la unidad de disco donde puedan localizarse los módulos 
-«BGI y .CHR. Si no se especifica ningún camino, éste será el directorio actual. 
Esta información suele ser suministrada por el programador y, si los archivos 
necesarios no quedan perfectamente localizados, el programa llegará a su fin. 

Segundo: si se asume el camino dado por omisión (que coincide con el 
directorio actual), con todos los archivos externos perfectamente localizados, 
pero la llamada al programa se produce desde otro directorio u otra unidad de 
disco, podemos llegar a un error de ejecución. 

Tercero: el usuario no tiene por qué conocer la importancia de los archivos 
externos. Un usuario puede que tenga guardado en su disco, con gran celo, un 
programa muy apreciado pero si tiene problemas de almacenamiento, puede 
darse el caso de que llegue a borrar alguno de aquellos al ignorar su función. 

Como alternativa, existe la posibilidad de enlazar los archivos .BGI y 
.CHR de la biblioteca gráfica junto al programa .EXE. Esto provoca un en- 
gorde del ejecutable en unos 30 Koctetos, pero convierte a controladores y 
fuentes en partes integrantes del archivo .EXE. 


¡Toc, toc!, ¿hay algo ahí? 


El primer paso en la creación de un programa gráfico se da al inicializar el 
controlador gráfico adecuado. La Tabla 1-1 muestra una lista de tarjetas de 
vídeo, controladores y modos gráficos bajo Turbo C++. 


detectgraph 


La función detecteraph suele ser llamada normalmente por initgraph, aunque 
también puede ser referenciada de forma independiente. 
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Tabla 1-1 Modos de vídeo admitidos por Turbo C++ 


Constante! de , Paletas? Páginas 
controlador Valor Modo(s) Valor? Columnas o de 
gráfico numérico — Gráfico(s) Clave Xfilas Colores vídeo 
DETECT 0 necesita initeraph para ejecutar la autodetección 
CGA 1 CGACO 0 320x200 CO 1 
CGACI 1 320x200 Cl 1 
CGAC2 2 320x200 C2 1 
CGAC3 3 320x200 C3 1 
CGAHI 4 640x200 2 colores 1 
MCGA 2 MCGACO 0 320x200 CU 1 
MCGACI ñ 320x200 Cl 1 
MCGAC2 2 320x200 C2 1 
MCGAC3 3 320x200 C3 I 
MCGAMED 4 640x200 2 colores 1 
MCGAHI 5 640x480 2 colores 1 
EGA 3 EGALO 0 640x200 16 colores 4 
EGAHI ñ 640x350 16 colores 2 
EGA64 4 EGAG4LO 0 640x200 16 colores 1 
EGA64HI 1 640x350 4 colores 1 
EGAMONO 5 EGAMONOH[I 3 640x350 2 colores 1-24 
IBM8514* 6 IBM8SI4LO o 640x480 256 colores 1 
IBM8514H1 1 1024x768 256 colores 1 
HERC 7 HERCMONOHI 0 720x348 2 colores 4 
ATT400 8 ATTA00CO 0 320x200 CO 1 
ATTA00CI 1 320x200 Cl 1 
ATT400C2 2 320x200 C2 1 
ATT400C3 3 320x200 C3 1 
ATT400MED 4 640x200 2 colores 1 
ATTA400HI 5 640x400 2 colores 1 
VGA 9 VGALO 0 640x200 16 colores 4 
VGAMED 1 640x350 16 colores 2 
VGAHI 2 640x480 16 colores 1 
PC3270 10 PC3270H1 0 720x350 2 colores 1 


L. Los nombres de los controladores gráficos y de los modos gráficos son constantes definidas en GRA- 
PHICS.H, al igual que lo están los valores numéricos correspondientes y los valores del modo (ver la 
nota 2). 

2. Valores de modo devueltos por initgraph, detectgraph y getgraphmode. 

3. CO, .... C3 hacen referens las paletas de cuatro colores predefinidas (consulte setpalette). 

4, Sólo se permite una única página de vídeo con la tarjeta EGAMONO de 64 Kb; con 256 Kb se permiten 
dos páginas de vídeo. 

5. El programa de autodetección no reconocerá correctamente la tarjeta gráfica IBM-8514. En cambio, 
initgraph o detectgraph identificarán la tarjeta IBM-8514 como una tarjeta VGA, emulada esta última 
perfectamente por la tarjeta IBM-8514. (las tarjetas IBM8514LO y VGAHI son equivalentes). Para 
utilizar el modo de mayor resolución (IBM8514HI, con 1024x768 pixels), asigne el valor IBM8514 
(valor numérico 6, definido en GRAPHICS.H) a la variable controladorgrafico antes de proceder a la 
llamada de initeraph. No utilice detectgraph o DETECT con initgraph. Vea también las notas sobre 
1BM-8514 y setrbepalerte. 
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Ejemplo: 


ttinclude <graphics.h> 
int controladorgrafico = DETECT, modografico; 
main 
t 
detectgraph( £controladorgrafico, g£modografico); 


Si hay algún problema, *controladorgrafico devuelve un código de error; 
en caso contrario, *controladorgrafico identifica el tipo adecuado de contro- 
lador y *modografico devuelve el modo de vídeo más alto posible para este 
controlador. 

La función detectgraph no necesita llevar la especificación del camino del 
controlador (vea initgraph). 

La función detectgraph no lleva a cabo la iniciación de los valores de 
entorno gráfico. Tras la llamada a detectgraph, e inmediatamente a continua- 
ción, debería utilizarse initgraph para hacer referencia a un controlador gráfi- 
co específico o para seleccionar un modo gráfico que initgraph no pudiera 
llamar por omisión. Mediante la utilización de la función setgraphmode se 
puede solicitar el cambio del modo gráfico; previamente debe haberse produ- 
cido la iniciación del entorno gráfico en general. 


Valor devuelto: *controladorgrafico devuelve el tipo de controlador o un 
código de error; *modografico devuelve el modo de vídeo más alto posible. 
Transportabilidad: PCs de IBM o compatibles solamente, así como las fun- 
ciones correspondientes de Turbo Pascal. 


initgraph 


La función initgraph permite activar determinados parámetros gráficos con 
valores, cargar los controladores gráficos, y poner el sistema en el modo 
gráfico adecuado. 


Ejemplo: 


ttinclude <graphics.h> 

int controladorgrafico = DETECT, modografico; 
char caminocontrolador dd 

main 

t 
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initgraph ( econtroladorgrafico, £modografico, 
caminocontrolador ); 


J 


El valor cero de controladorgrafico permite a initgraph llamar a detect- 
graph (£controladorgrafico, €modografico) para conocer el tipo (y sus valo- 
res) de adaptador gráfico instalado. En caso de error, *controladorgrafico 
devuelve un código de error indicativo de lo sucedido (ver Tabla 1-2). 


Tabla 1-2 Códigos de error durante la iniciación gráfica 


Código de error Significado 


2 No se detecta tarjeta gráfica 
3 No se localizan los archivos de los controladores gráficos 
4 Controlador no permitido (o no reconocido) 


5 Memoria insuficiente para cargar el controlador gráfico 


Las funciones detecteraph y graphresult devuelven los mismos códigos de 
error. Si no ha existido ningún error, el código interno de error se pone a cero, 
initeraph reserva memoria para el controlador gráfico adecuado, carga el ar- 
chivo .BGI solicitado desde el disco e introduce los valores por omisión de 
los parámetros gráficos. Además, *controladorgrafico devuelve el tipo de 
controlador, mientras que *modografico devuelve la información sobre el mo- 
do gráfico. 

Por otra parte, *controladorgrafico y *modografico pueden llamarse con 
las constantes numéricas apropiadas o con los nombres de los modos gráficos 
y controladores que se definen en GRAPHICS.H. En cualquier caso, camino- 
controlador muestra el controlador y el camino donde están ubicados los 
controladores gráficos .BGL. Si caminocontrolador es nulo (como se ve en el 
ejemplo), entonces estos archivos deberán ubicarse en el directorio de búsque- 
da por omisión. Si se encontrasen en otro directorio, entonces habría que 
especificar su camino completo, como por ejemplo: 


char caminocontrolador = "AMWTURBOCANCONTROLA"; 


Como ve, se ha utilizado una barra atrás doble (M ). El carácter de barra 
atrás permite hacer referencia a secuencias de escape (como An, para indicar 
retorno de carro o bien la, para hacer referencia al sonido). Si el carácter barra 
atrás se incluye en una cadena, entonces debe ir duplicado. 


Además, el valor de caminocontrolador cargado por initeraph puede ser 
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utilizado por la función settextstyle para buscar los archivos que contienen las 
diferentes fuentes (.CHR). Tanto los archivos .BGI como los .CHR deben 
estar ubicados en el mismo directorio, 


Valor devuelto: *controladorgrafico devuelve el tipo del controlador o bien 
un código de error; *modografico devuelve el modo de vídeo más alto posi- 
ble. 

Transportabilidad: PCs de IBM o compatibles, así como las funciones co- 
rrespondientes de Turbo Pascal. 


Funciones de error gráfico 


Si el computador no contiene ninguna tarjeta gráfica, los controladores gráfi- 
cos no se localizan o si tiene lugar algún error durante la detección realizada 
en fase de iniciación, tanto detectgraph como initgraph devolverían un código 
de error. Sin embargo, existen otras condiciones en las que puede producirse 
un error gráfico; para estos casos, las funciones graphresult y grapherrormsg 
permiten la comprobación y posterior muestra de los resultados de error y de 
sus mensajes. 


graphresult 


Esta función devuelve un código de error numérico marcado por la última 
operación gráfica que informó de un error. Este código será un valor entero 
comprendido entre -18 y 0. Dado que al llamar a la función graphresult la 
condición de error se inicia a cero, el valor devuelto deberá ser almacenado 
en una variable local para poder ser consultado posteriormente. 


Ejemplo: 


ttinclude <graphics.h> 
int numeroerror; 
humeroerror = graphresult (); 


Valor devuelto: Código de error (-18...0); vea la Tabla 1-3 para la interpre- 
tación de mensajes de errores gráficos. 

Transportabilidad: PCs de IBM o compatibles, así como las funciones co- 
rrespondientes de Turbo Pascal. 
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Tabla 1-3 Mensajes de errores gráficos 


Código — Constante de 


de error error gráfico” 


Mensaje de error correspondiente 


0 grOk No hay errores 

Al grNolnitGraph Sistema gráfico no instalado (BGI); Utilice initeraph 

-2 grNotDetected Hardware gráfico no detectado 

=5: grFileNotFound Archivo del controlador de dispositivos no encontrado 
(archivo BGI) 

4 grinvalidDriver Archivo del controlador de dispositivos no válido 

5 2rNoLoadMem No hay memoria suficiente para cargar el controlador 

-6 grNoScanMem Desbordamiento de memoria durante el examen del relleno 

sE grNoFloodMem Desbordamiento de memoria durante el proceso de relleno 

-8 grFontNotFound Archivo de fuente no encontrado (archivo .CHR) 

-9 grNoFontMem No hay memoria suficiente para cargar la fuente 

-10 grinvalidMode Modo gráfico no válido para el controlador seleccionado 

-11 grError Error gráfico (error genérico) 

-12 erlOcrror Error de E/S gráfica 

-=13 grInvalidFont Archivo de fuentes no válido 

-14 grInvalidFontNum Número de fuente no válido 

-15 grinvalidDeviceNum Número de dispositivo no válido 

-18 grinvalidVersion Número de version no válida 


1 Las constantes de error gráfico y li 
de error -16 y -17 no tienen asign 


nensajes de error están definidos en GRAPHICS.H. Los códigos 


grapherrormsg 


Esta función devuelve un puntero a la cadeña del mensaje de error especifi- 
cado. Estos mensajes están definidos en la biblioteca gráfica (GRAP- 
HICS.LIB). Los mensajes de error pueden ampliarse si se crean rutinas de 
mensajes separadas. 


Ejemplo: 


tinclude <graphics.h> 

int numeroerror; 

numeroerror = graphresult(); 

printf£(" %s ", grapherrormsg( numeroerror ) ); 


Valor devuelto: ninguno. 
Transportabilidad: PCs de IBM o compatibles, así como las funciones co- 
rrespondientes de Turbo Pascal. 
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Otras funciones del modo gráfico 


Todo controlador de vídeo, con excepción de los controladores EGAMONO, 
HERC y PC3270, acepta dos o más modos de vídeo diferentes, con oferta 
variable a nivel de resolución o paletas de color. Para solicitar información y 
cambiar los modos de operación, Turbo C++ proporciona varias funciones. 


getgraphmode 


Esta función devuelve un valor entero que informa sobre el modo gráfico 
puesto en funcionamiento por initgraph o setgraphmode. 


Ejemplo: 


tinclude <graphics.h> 
int modovigente; 
modovigente = getgraphmode (); 


Valor devuelto: modo gráfico vigente. 
Transportabilidad: PCs de IBM o compatibles, así como las funciones co- 
rrespondientes de Turbo Pascal. 


getmoderange 


En la llamada a esta función debe incluirse un valor entero que especifique el 
controlador gráfico. Este valor debe ser una variable entera o una de las 
constantes definidas en GRAPHICS.H. Devuelve dos valores que definen los 
modos máximo y mínimo permitidos por el controlador especificado. 


Ejemplo: 


ttinclude <graphics.h> 
int modoalto, modobajo, controladorgrafico; 
getmoderange ( controladorgrafico, £modobajo, £modoalto); 


Si el valor guardado en controladorgrafico no es correcto, tanto modobajo 
como modoalto devuelven -1. 


Valor devuelto: modos máximo y mínimo permitidos o código de error -1. 
Transportabilidad: PCs de IBM o compatibles, así como las funciones co- 
rrespondientes de Turbo Pascal. 
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getmaxmode 


Esta función se invoca sin parámetros. Se encarga de preguntar cuál es el 
controlador gráfico cargado en este momento, y devuelve el valor máximo de 
modo para ese controlador. 


Ejemplo: 


tinclude <graphics.h> 
int modomax; 
modomax = getmaxmode (); 


A diferencia de getmoderange, la función getmaxmode sirve para cualquier 
controlador, no sólo para los controladores de Borland. El valor mínimo del 
modo es siempre 0. 


Valor devuelto: valor máximo permitido para ese modo. 
Transportabilidad: Turbo C++, PCs y compatibles que admitan adaptadores 
de pantalla gráfica. 


getdrivername 


Esta función se llama sin parámetros y devuelve un puntero a una cadena que 
contiene el nombre del controlador gráfico cargado en el momento de la 
consulta. 


Ejemplo: 


tinclude <graphics.h> 
printf ( "Controlador = %sin", getdrivername() ); 


Valor devuelto: un puntero a una cadena que identifica el controlador gráfico 
cargado en el momento de la consulta. 

Transportabilidad: Turbo C++, PCs y compatibles que admitan adaptadores 
de pantalla gráfica. 


getmodename 


Se llama con un parámetro entero con el que se especifica el modo gráfico 
activo. El parámetro puede ser una variable entera o una de las constantes 
definidas en GRAPHICS.H. Devuelve una cadena que contiene el nombre del 
modo gráfico correspondiente. 
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Ejemplo: 


ttinclude <graphics.h> 
printf( "El modo es : %sin ", 
getmodename( getgraphmode() ) ); 


Los nombres de los modos están embebidos en cada controlador gráfico e 
identifican el tipo de modo y las propiedades del modo de operación. Posibles 
valores de cadena son: "320x200 CGA P1" o "640x480 VGA". 


Valor devuelto: una cadena con el nombre del modo. 
Transportabilidad: Turbo C++, PCs y compatibles que acepten adaptadores 
de pantalla gráfica. 


graphdefaults 


Esta función reinicia todos los parámetros gráficos, cargando en estos sus 
valores por omisión (los valores cargados inicialmente por initgraph están 
definidos en GRAPHICS.H). Entre ellos se incluyen: el reinicio de la ventana 
gráfica (viewport) con el valor de la pantalla completa, el desplazamiento de 
la posición vigente a la posición (0,0), el reinicio de los colores por omisión, 
el color de fondo y el color de dibujo, el reinicio de los archivos por omisión 
y los estilos de patrón, y el reinicio de las fuentes de texto y de los modos de 
justificación. 


Ejemplo: 


tinclude <graphics.h> 
graphdefaults(); 


Valor devuelto: ninguno. 
Transportabilidad: PCs de IBM o compatibles, así como las funciones co- 
rrespondientes de Turbo Pascal. 


setgraphmode 


Esta función debe llamarse con un modo gráfico válido para el controlador 
activo en este momento. Para ello, la función initgraph debe haber iniciado el 
modo gráfico previamente. Tanto el valor del modo vigente como los posibles 
valores admisibles pueden consultarse por medio de la función getgraphmode. 
AL llamar a setgraphmode se selecciona un nuevo modo gráfico, produciendo 
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el borrado de la pantalla y el reinicio de las variables gráficas con sus valores 
por omisión (ver graphdefaults). 


Ejemplo: 


tinclude <graphics.h> 
setgraphmode (numeromodo); 


La funciones setgraphmode y restorecrtmode pueden utilizarse conjunta- 
mente para conmutar del modo gráfico al modo texto y viceversa. Evidente- 
mente, initgraph debe haber sido utilizada de forma previa. 


tinclude <graphics.h> 

int modovigente; 

modovigente = getgraphmode(); 

restorecrtmode(); /* modo texto */ 
setgraphmode (modovigente); /* modo gráfico */ 


En caso de llamar a la función setgraphmode con un valor no permitido 
por el actual controlador, graphresult devolverá el valor -10 (grInvalidMode). 


Valor devuelto: ninguno; vea los códigos de error en graphresult. 
Transportabilidad: PCs de IBM o compatibles, así como las funciones co- 
rrespondientes de Turbo Pascal. 


restorecrtmode 


Esta función restituye al vídeo del sistema el modo texto detectado inicial- 
mente durante la ejecución de initgraph. Puede utilizarse junto a setgraphmo- 
de para alternar los modos gráfico y texto. 


Ejemplo: 


tinclude <graphics.h> 
restorecrtmode(); 


Valor devuelto: ninguno; vea los códigos de error en graphresult. 
Transportabilidad: PCs de IBM o compatibles, así como las funciones co- 
rrespondientes de Turbo Pascal. 


PROGRAMACIÓN DE GRÁFICOS EN TURBO C++ 


closegraph 


Esta función restituye al sistema el modo texto normal detectado inicialmente 
por initgraph. Además, llama a _graphfreemem para liberar la memoria utili- 
zada por el sistema gráfico para sus controladores, fuentes de caracteres y 
áreas internas de memoria intermedia (buffers internos). 


Ejemplo: 


ttinclude <graphics.h> 
closegraph(); 


Si se desea alternar entre el modo gráfico y el modo texto, deberá hacerse 
uso de las funciones restorecrtmode y setgraphmode. La reserva de memoria 
puede modificarse por medio de las funciones _graphfreemem y _graphget- 
mem. 


Valor devuelto: ninguno; vea los códigos de error en graphresult. 
Transportabilidad: PCs de IBM o compatibles, así como las funciones co- 
rrespondientes de Turbo Pascal. 


se=sesea*/ 


Ye PRIMGRAF.C ht 
/* Demostración para iniciar y probar el */ 
Je modo gráfico en Turbo C++ EA 


amesceeoosanoo= =nem===*/ 


Hifdef _ TINY__ 

Hterror La demostración no funcionó cuando se compiló en 
el modelo TINY. 

itendif 


ttinclude <conio.h> 
ttinclude <stdio.h> 
Htinclude <stdarg.h> 
tiinclude <graphics.h> 
tiinclude "gprint.i" 


char *Fuentes[] = ( "Default", "Triplex", "Small", 
, "Gothic" ); 
char *Tipolinea[] =1 "Dotteá", "Center", 


"Dashed", "User Defined" ); 
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char *TipoRelleno[] = [ "Empty", "Solid", "Line Fill", 
"LightSlash", "Slash", 
"Back Slash", 
"Light Back Slash", 
"Hatch", "XHatch", "Interleave", 
"WideDot", "Close Dot" ); 


/* se mantiene la notación internacional */ 
char *DirecTexto[] = [ "Horizontal", "Vertical" ); 


char *JustHoriz[] = ( "Alineado Izquierda", "Centrado", 
"Alineado Derecha" ); 


char *JustVert [] = ( "Abajo", "Centrado", "Arriba" ); 
int ControladorGrafico; /* tarjeta 
int ModoGrafico; /* valor del modo gráfico */ 
int MaxColores; /* número máximo de colores */ 
double FactAsp; /* factor de aspecto de un pixel 
en pantalla */ 
int AspX, AspY; /* compon: del factor de as; *e 
int MaxX, MaxY; PE resolución de 1 bad 
int CodigoError = 0; /* variable para errores 
gráf */ 
struct palettetype Paleta; /* para info de la paleta */ 
void CompruebaErrorGrafico() 
t 
CodigoError = graphresult (); /* chequ el 1ltado */ 
if( CodigoError != gr0k ) /* si se produce un error */ 
t 
closegraph(); /* informa de él, pasa a modo texto */ 
printf(" Error en sistema de graficos: %sin", 
grapherrormsg( CodigoError ) ); 
exit( 1); /* y devuelve el control al DOS */ 
) 
) 


void CambiaEstiloTexto( int fuente, int direccion, 
int dimcaracter ) 


graphresult(); /* borra el anterior código de error 


si existió */ 
settextstyle( fuente, direccion, dimcaracter ); 
CompruebaErrorGrafico(); /* comprueba si hay error */ 
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void LineaEstado( char *msg ) /* presenta una línea 
de estado abajo */ 
t 
int Altura; 
setviewport( 0, 0, MaxX, MaxY, 1 ); /* abre la ventana 
gráfica */ 
setcolor( MaxColores - 1 ); /* empieza con el color 
máximo */ 
CambiaEstiloTexto( DEFAULT_FONT, HORIZ_DIR, 1 ); 
settextjustify( CENTER_TEXT, TOP_TEXT ); 
setlinestyle( SOLID: LINE, 0, NORM_WIDTH ); 
setfillstyle( EMPTY _FILL, 0 ); 
Altura = textheight( msg ); /* obtiene la altura del 
carácter */ 
bar( 0, MaxY - ( Altura + 4 ), MaxX, MaxY ); 
rectangle( 0, MaxY - ( Altura + 4 ), MaxX, MaxY ); 
outtextxy( MaxX / 2, MaxY - ( Altura + 2 ), msg ); 
setviewport( 1, Altura + 5, 
MaxX - 1, MaxY - ( Altura + 5 ),1 ); 
J 
wvoiá DibujaBorde() /* dibuja una línea sólida alrededor */ 
t /* de la ventana gráfica actual */ 
struct viewporttype VentanaGrafica; 
setcolor( MaxColores - 1 ); /* pone el color blanco */ 
setlinestyle( SOLID_LINE, 0, NORM_WIDTH ); 
getviewsettings( S£VentanaGrafica ); 
rectangle( 0, 0, 
VentanaGrafica.right - VentanaGrafica.left, 
VentanaGrafica.bottom - VentanaGrafica.top ); 
) 
void Ventanalnforme( char *cabecera ) 
/* dispone la ventana para el informe */ 
t 
int Altura; 
cleardevice(); /* borra la pantalla gráfica */ 
setcolor( MaxColores - 1 ); 
setviewport( 0, 0, MaxX, MaxY, 1 ); /* dispone la 
ventana gráfica */ 
Altura = textheight( cabecera ); /* altura del 
carácter */ 


CambiaEstiloTexto( DEFAULT FONT, HORIZ_DIR, 1 ); 
settextjustify( CENTER_TEXT, TOP_TEXT ); 
outtextxy( MaxX / 2, 2, cabecera ); 
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setviewport( 0, Altura+4, 

MaxX, MaxY - ( Altura+4 ), 1 ); 
DibujaBorde(); 
setviewport( 1, Altura + 5, MaxX - 1, 

MaxY - ( Altura + 5), 1 )5 


7 
voiá Pausa() /* espera la pulsación de una tecla */ 
1 
static char msg[] = "Pulse cualquier tecla. i 
LineaEstado( msg ); /* pone el mensaje pantalla */ 
if ( kbhit() != 0 ) getcH(); 
getch(); 
cleardevice(); /* borra la pantalla */ 
J 
void SaltoColor() /* cambia de color dentro del 
rango válido */ 
ÑS 
int Color; 
Color = getcolor() - 1; 
if ( !Color ) Color = getmaxcolor (); 
setcolor( Color ); 
J 
void InformaEstado() /* informe sobre la configura ri 
actual del sistema */ 
1 
struct viewporttype InfoVentana; /* parámetros para 
preguntar */ 


struct linesettingstype InfoLinea; 
struct fillsettingstype InfoRelleno; 
struct textsettingstype InfoTexto; 
int x= 10, y = 4; 


Ventanalnforme( "Informe del Estado Gráfico"); 

getviewsettings( S£InfoVentana ); /* lee los valores de 
los parámetros */ 

getlinesettings( £InfoLinea ); 

getfillsettings( £InfoRelleno ); 

gettextsettings( S£InfoTexto ); 

getpalette( Paleta ); 

settextjustify( LEFT TEXT, TOP_TEXT ); 
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SaltoColor(); 
gprint£( £x, €y, "Dispositivo Gráfico 


( %d ) %-108", 


ControladorGrafico, getdrivername() ); 


SaltoColor(); 
gprintf( £x, £y, "Modo gráfico 


( %d ) %-108", 


ModoGrafico, getmodename( ModoGrafico) ); 


SaltoColor (); 
gprintf( £x, £y, "Resolución pantalla 
( 0, 0, %2d, %2d )", getmaxx(), 


SaltoColor(); 
gprintf( £x, £y, "Ventana gráfica actual 
( %2d, %2d, %2d, %2d )", 


InfoVentana.left, InfoVentana.top, 
InfoVentana.right, InfoVentana.bottom ); 


SaltoColor(); 
gprintf£( £x, Ey, "Cerrada 
InfoVentana.clip ? "SI" : "NO" ); 


SaltoColor(); 
gprintf( £x, £y, "Posición Vigente (PV) 
getx(), gety() ); 


SaltoColor(); 


getmaxy() ); 


: %8", 


( %2d, %2d )", 


gprintf( £x, £y, "Máximo colores /actual: %2d / %2d", 


MaxColores, getcolor() ); 


SaltoColor(); 

gprintf( £x, £y, "Ancho línea / estilo 
InfoLinea.thickness, 
TipoLinea[ InfoLinea.linestyle ] 


SaltoColor(); 
gprintf( £x, £y, "Relleno color / estilo 
InfoRelleno.color, 


) 


%2d / %s", 


; 


%2d / %s", 


TipoRelleno[ InfoRelleno.pattern ] ); 


SaltoColor(); 

gprintf( £x, £y, "Dimen. caracter/fuente 
InfoTexto.charsize, 
Fuentes[ InfoTexto.font ] ); 


%2d / %s", 
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SaltoColor(); 
gprintf( £Xx, Ey, "Dirección texto 2 $8", 
DirecTexto[ InfoTexto.direction ] ); 


SaltoColor(); 
gprintf( £x, 8y, "Justificac. horizontal: %s", 
JustHoriz[ InfoTexto.horiz ] ); 


SaltoColor(); 
gprintf( £x, £y, "Justificación vertical: %s", 
JustVert[ InfoTexto.vert ] ); 


SaltoColor (); 
gprintf( £x, £y, "Factor de Aspecto (x/y): 

%d / %d = %5.3£", AspX, AspY, FactAsp ); 
Pausa(); 


J 
void Iniciar() pe cia el sistema de gráficos */ 
1 /* y da cuenta de cualquier error */ 
ControladorGrafico = DETECT; /* solicita autodetección */ 
initgraph( £ControladorGrafico, £ModoGrafico, 
"Ci NNTCANMBGI" ); 
CompruebaErrorGrafico(); /* detecta los errores en 
gráficos */ 
getpalette( £Paleta ); /* lee los parámetros de la 
paleta */ 
MaxColores = getmaxcolor() + 1; /* lee el rango máximo 
de colores disponible */ 
MaxX = 380; /* dimensiones de la */ 
MaxY = 174; /* ventana gráfica ie 
getaspectratio( £AspX, £ASpY ); /* lee los factores de 
aspecto de la pantalla */ 
FactAsp = (double)AspX/(double)AspY; /* y calcula su 
relación */ 
) 
main() 
+ 
Iniciar(); /* activa el modo gráfico */ 
InformaEstado(); /* muestra los parámetros gráficos 
del sistema */ 
closegraph(); /* vuelve al modo texto */ 


Funciones de ventana 
gráfica, pantalla y página 


Los modos de las pantallas gráficas gozan de las mismas características de 
control que los de las pantallas de texto, como son la creación de ventanas y 
las rutinas de tratamiento de la pantalla. Entre la características más relevantes 
se cuentan las funciones cleardevice y clearviewport (equivalentes gráficos de 
cirscr), setviewport (equivalente a window), setviewsettings, setactivepage y 
setvisualpage. 

No todas las funciones tienen un equivalente en el modo de texto. Por otra 
parte, no todas las funciones del modo de texto tienen la función equivalente 
en el modo gráfico. Algunas funciones gráficas pueden parecer similares a sus 
equivalentes en el modo de texto, pero puede darse el caso de que no funcio- 
nen de la misma manera. 


Funciones de pantalla y ventana gráfica 
Las funciones gráficas que se detallan a continuación afectan a la pantalla y 
a la ventana gráfica. 
cleardevice 


Esta función borra la totalidad de la pantalla gráfica, independientemente 
de los parámetros de la ventana gráfica, desplazando la posición vigente 
(PV) a la posición (0,0) de aquélla. Esto no afecta a la ventana gráfica 
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activa. Los parámetros de la ventana gráfica no sufren ninguna modificación. 
La función no devuelve ningún valor ni genera ningún código de error. 


Ejemplo: 


ttinclude <graphics.h> 
cleardevice(); 


La función cleardevice es similar en comportamiento a la función clrser 
del modo de texto (la función de texto permite el borrado exclusivo de la 
ventana activa), provocando la restauración de la totalidad de la pantalla grá- 
fica activa, sin afectar al resto de las pantallas gráficas (si el hardware es 
capaz de aceptar varias). Recuerde que las funciones de texto, tales como 
cirscr, no funcionan en modo gráfico y viceversa. Consulte clearviewport, 
setactivepage y setvisualpage. 


clearviewport 


Esta función borra la ventana gráfica vigente y define como nueva posición 
vigente (PV) la posición (0,0) de la ventana gráfica. A diferencia de la función 
cleardevice, clearviewport se limita a una zona específica de la pantalla y 
actúa de forma similar a la orden clrscr sobre la ventana activa. 


Ejemplo: 


ttinclude <graphics.h> 
clearviewport (); 


Consulte también getviewsettings y setviewport. 


setviewport 


Esta función permite marcar la ventana gráfica activa, siendo su actividad 
equivalente a la de la función de la ventana de texto. Las coordenadas (iz- 
quierda, arriba, derecha, abajo) son absolutas en el entorno de la pantalla y 
sólo afectan a la página gráfica activa (vea setactivepage). 


Ejemplo: 


ttinclude <graphics.h> 

int izquierda, arriba, derecha, abajo, dentrolimite; 

setviewport (izquierda, arriba, derecha, abajo, 
dentrolimite); 
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El quinto argumento especificado en la llamada a setviewport es dentroli- 
mite. Si dentrolimite tiene un valor distinto de cero (es cierto), todos los 
dibujos quedan restringidos al ámbito de la ventana gráfica activa. Si dentro- 
limite vale cero, los dibujos pueden extenderse más allá del perímetro de la 
ventana gráfica, sin ningún tipo de límite. 

Recuerde que los límites de una ventana gráfica no afectan a las órdenes 
getimage y putimage. Las imágenes que vayan a representarse en pantalla a 
nivel de pixel no quedarán truncadas en el perímetro de la ventana gráfica, 
independientemente de los valores de dentrolimite. 

Si las coordenadas que se pasan a la función setviewport no son válidas, 
graphresult devolverá el valor -11 (error gráfico o error genérico), en cuyo 
caso permanecerán activos los parámetros anteriores de la ventana gráfica. 
Tanto initgraph como setgraphmode provocan la iniciación de la ventana grá- 
fica vigente con los valores de la pantalla gráfica completa, según se define 
en el juego de parámetros del modo vigente. 

Vea clearviewport y getviewsettings. 


getviewsettings 


La variable estructurada ventanagráfica devuelve las coordenadas de la ven- 
tana gráfica vigente y los valores de dentrolimite. Las coordenadas así espe- 
cificadas corresponden a valores absolutos de pantalla. 


Ejemplo: 


Htinclude <graphics.h> 
struct viewporttype ventanagrafica; 
getviewsettings( £ventanagrafica ); 


La función getviewsettings utiliza la estructura de registro de viewporttype, 
definida en GRAPHICS.H de la forma: 


struct viewporttype 

t 
int left, top, right, bottom; 
int clip; 

di 


Para valores de dentrolimite distintos de cero, los dibujos resultan trunca- 
dos en los márgenes de la ventana gráfica vigente. Para más detalles, diríjase 
a las funciones setviewport, clearviewport. initgraph, setgraphmode y setview- 
port. 
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Multiplicidad de páginas gráficas 


Hay tarjetas gráficas que aceptan de dos a cuatro páginas de pantalla gráfica 
(la mayoría de ellas, sin restringir el color ni la resolución). Para disfrutar de 
estas posibilidades, Turbo C++ proporciona dos funciones: setactivepage, que 
selecciona la página de salida gráfica activa y setvisualpage, que selecciona 
la página gráfica que en este mismo instante deberá aparecer sobre la pantalla. 
Estas son las más utilizadas en animación de imágenes. 

Estas órdenes sólo pueden utilizarse con los controladores y los modos 
especificados en la Tabla 2-1. 


Tabla 2-1 Modos de gráficos que admiten multiplicidad de páginas 


Valor Valor Resolución 

Controlador del Modo del ejex y Colores Páginas 

Gráfico Controlador Gráfico modo eje y disponibles Gráficas 

EGA + EGALO 0 640x200 16 4 
EGAHI 1 640x350 16 2 

EGAMONO 5 EGAMONOHI 3 640x350 2 4 

HERC y HERCMONOHI 0 720x348 2 4 

VGA 9 VGALO 0 640x200 16 4 
VGAMED 1 640x350 16 2 


1 La tarjeta EGAMONO debe tener 256 Kb de RAM para permitir la multiplicidad de páginas (algunas 
tarjetas EGAMONO sólo tienen 64 Kb de RAM). 
El modo VGAHI (640x480) sólo admite una página gráfica. 


Recuerde que cuando se admite la multiplicidad de páginas gráficas, éstas 
se numeran desde el O, La página cero se activa por omisión, Las funciones 
setactivepage y setvisualpage resultan inoperantes si el sistema gráfico no 
admite la multiplicidad de páginas. Por omisión, la página cero se comporta 
como página activa de salida y como página visual activa. 

La opción aportada por omisión no tiene por qué ser la forma más apro- 
piada de manipular el sistema de páginas múltiples. En determinadas ocasio- 
nes puede que sea más apropiado saber de cuántas páginas se dispone y exigir 
al programa que actúe en consecuencia. El procedimiento PaginasVideo, que 
se detalla a continuación, devuelve un cero si no existen varias páginas dis- 
ponibles o un valor entero en caso contrario. 


Ejemplo: 


ttinclude <graphics.h> 
int ControladorGrafico, ModoGrafico; 
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int PaginasVideo(void); 
t 
swicth( ControladorGrafico ); 
t 
case EGA: switch ( getgraphmode() ) 
t 
case EGALO: return( 4 ); 
case EGAHI: return( 2 ); 
) break; 
case EGAMONO: return( 0 ); /* vea la nota 1 */ 
case HERC: return ( 2 ); 
case VGA: switch ( getgraphmode() ) 
£ 
case VGALO: return (4 ); 
case VGAMED: return (2 ); 
case VGAHI; return (0); 
) break; 
, 


return( 0 ); /* vea la nota 2 */ 


1. Determinadas tarjetas EGAMONO admiten cuatro páginas de vídeo pero ni los parámetros del modo 
ni los del controlador son capaces de identificar qué tarjetas disponen de 256 Kb de RAM y cuáles tan 
sólo de 64 Kb. Por lo tanto, el valor devuelto debe ser cero. Todo esto puede modificarse si la 
aplicación en proceso necesita un resultado diferente. 

El resto de controladores y modos presuponen la aceptación de una página de vídeo. Otras tarjetas más 
modernas pueden requerir la modificación de esta tabla de selección. 


setactivepage 


Esta función selecciona la página gráfica (numpagina) de salida para todas las 
funciones gráficas. Esto no afectará a la página gráfica que se esté mostrando 
en ese instante (vea setvisualpage) pero permite dirigir las operaciones gráfi- 
cas sobre una página "invisible", que será mostrada posteriormente por medio 
de las funciones getimage y putimage o bien al producirse un cambio de éstas. 
Utilice putimage tras cambiar la página activa para que coincida con la página 
visual. 


Ejemplo: 
tinclude <graphics.h> 


int numpagina; 
setactivepage (numpagina); 
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setvisualpage 


Esta función permite seleccionar una página gráfica como página activa. Esta 
no tiene por qué coincidir con la página gráfica activa de salida (vea setacti- 
vepage) pero es útil para elegir entre diferentes páginas gráficas. El cambio 
tiene lugar instantáneamente (mucho más rápido de lo que el ojo humano 
puede percibir), y sólo necesita un ciclo de refresco de pantalla para comple- 
tarlo. 


Ejemplo: 


ttinclude <graphics.h> 
int numpagina; 
setvisualpage (numpagina); 


Selección del color gráfico 


Además del conocimiento adecuado de las tarjetas y de los controladores 
gráficos, es necesario tener información sobre las paletas y los colores permi- 
tidos. 

Para los controladores CGA, MCGA y ATT400 en los modos de 320x200 
pixels, la selección de colores se limita a las paletas predefinidas de cuatro 
colores (CO, Cl, C2 y C3). Para resoluciones más altas, algunas tarjetas grá- 
ficas ofrecen 16 colores, mientras que otras ofrecen dos o cuatro, La selección 
del color es independiente de las paletas predefinidas. 

Por último, IBM-8514 admite una paleta de 256 colores, con selección de 
matices de un total de 262.144 sombras. Las funciones de color y paleta que 
vienen a continuación no son compatibles con el controlador IBM8514. Para 
más información remítase a la tarjeta gráfica IBM-8514. 


Funciones de color 
Se detallan a continuación, 


getmaxcolor 


Esta función devuelve el valor máximo de colores permitidos (o tamaño de 
paleta -1) en el modo gráfico actual. Lo anterior es válido para los modos de 
alta y baja resolución, indistintamente. En el caso de un modo de baja reso- 
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lución (320x200), getmaxcolor devuelve el valor 3 (uno menos que el número 
de colores de las paletas predefinidas). En los modos de alta resolución, tales 
como EGAHLel valor devuelto será 15, mientras que en modos monocromo, 
tales como ATT400HI, el valor devuelto es 1. 


Ejemplo: 


ttinclude <graphics.h> 
int MaxColores; 
MaxColores = getmaxcolors() + 1; 


Recuerde que el valor indica solamente el número de colores de paleta 
separados y utilizables, y no el valor del color máximo. Esta función no está 
permitida con el controlador IBM8514. Consulte setcolor. 


setcolor 


Esta función selecciona el color vigente utilizado para dibujar o color de 
primer plano, 


Ejemplo: 


ttinclude <graphics.h> 

int colorprimerplano; 
colorprimerplano = getmaxcolors(); 
setcolor (colorprimerplano); 


En los modos CGA de baja resolución (320x200 pixels) el color seleccio- 
nado es el número del color de la paleta y no el valor del color actual. Por lo 
tanto, en el modo CGAC2, setcolor(0) selecciona el color de fondo (vea set- 
palette), setcolor(1) selecciona Verde (valor 2 de color), setcolor(2) selecciona 
Rojo (valor 4 de color) y setcolor(3) selecciona Marrón (valor 6 de color). 

En los modos de alta resolución, los valores de los colores pueden repre- 
sentarse mediante nombres simbólicos (definidos en GRAPHICS.H) o bien 
mediante valores numéricos. Si los valores de los colores de paleta han sido 
modificados mediante las funciones setpalette o setallpalette, puede que los 
nombres simbólicos asociados a estos colores no produzcan los resultados 
esperados. 

El color seleccionado se utilizará para dibujar y mostrar los textos gráficos. 
El valor vigente del color de relleno puede ser, sin embargo, diferente del 
color vigente de dibujo (consulte el capítulo 13). Los colores seleccionados se 
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obtienen de un registro de estructura paletretype como paleta.colors[nume- 
ro_de_color]. La estructura palettetype está definida en GRAPHICS.H como: 


struct palettetype 
t 

unsigned char size; 

signed char colors[ MAXCOLORS + 1 ]; 
Y; 


La constante MAXCOLORS se define con el valor 15. Si desea conocer 
las paletas predefinidas consulte la función setpalette. Consulte también get- 
color y setbkcolor. 


getcolor 


Esta función devuelve el valor del color vigente de dibujo (primer plano). 
Ejemplo: 


Hfinclude <graphics.h> 
int colorprimerplano; 
colorprimerplano = getcolor(); 


En los modos de baja resolución que utilizan paletas de colores, el valor 
devuelto coincide con el número de la paleta, no con el valor del color real. 

En los modos de alta resolución (16 colores), el valor devuelto se corres- 
ponde con los valores de los colores, a menos que previamente se hayan 
utilizado las funciones setpalette o setallpalette para cambiar los valores de la 
paleta. Consulte la función setcolor para obtener información sobre los valo- 
res de los colores y setpalette para los colores de las paletas. Consulte también 
getbkcolor. 


setbkcolor 


Esta función selecciona los valores del color de fondo, cambiando el valor del 
primer elemento de la paleta activa (paleta.colors[0] = colorfondo) por el 
valor del color especificado. Consulte la función setpalette. 


Ejemplo: 


ttinclude <graphics.h> 
int colorfondo; 
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colorfondo = 0; 
setbkcolor( colorfondo ); 


Al llamar a la función setbkcolor con un nuevo valor, el color de fondo de 
la pantalla cambia. Si este color de fondo coincidiera con color de cualquier 
imagen, ésta resultaría invisible, pero no se perdería. Al cambiar el color de 
fondo por otro de mayor contraste, la imagen volvería a hacerse visible. 


El argumento colorfondo puede ser un nombre simbólico de color o un 
valor numérico directo. La Tabla 3-1 muestra los valores de los colores de 
fondo definidos en GRAPHICS.H. 


Tabla 3-1 Valores de los colores de fondo 


Nombre Valor Nombre Valor 
BLACK 0 DARKGREY 8 
1 LIGHTBLUE 9 
2 LIGHTGREEN 10 
3 LIGHTCYAN 1 
4 LIGHTRED 12 
MAGENTA bp) LIGHTMAGENTA 13 
BROWN 6 YELLOW 14 
LIGHTGREY 7 WHITE 15 


En los modos de baja resolución con paletas de colores sólo puede modi- 
ficarse el valor del primer elemento de la paleta (paleta.colors[0]). Consulte 
la función setpalette. En los modos de alta resolución con 16 colores 
(EGA/VGA), el uso de las funciones setpalette y setallpalette permite cambiar 
cualquiera de los colores de la paleta activa. Si se llevara a efecto lo anterior 
pudiera darse el caso de que determinados nombres simbólicos de colores 
correspondieran a tonos indeseados. 


getbkcolor 


Esta función devuelve el valor vigente del color de fondo. 
Ejemplo: 
tinclude <graphics.h> 


int colorfondo; 
colorfondo = getbkcolor(); 
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Dado que el color de fondo siempre se encuentra en paleta.colors[0], la 
función getbkcolor devuelve su valor, no su número de orden en la paleta, 
Consulte las funciones getcolor y setbkcolor para mayor información. 


getpalette 


Esta función devuelve los parámetros de color de la paleta vigente. 
Ejemplo: 


ttinclude <graphics.h> 
struct palettetype paleta; 
getpalette( £paleta ); 


La función getpalette rellena la estructura paleta con la información de la 
paleta vigente. La estructura paletterype está definida en GRAPHICS.H de la 
forma: 


struct palettetype 
1 

unsigned char size; 

signed char colors[ MAXCOLORS + 1 ]; 
Y; 


Paleta.size proporciona el número de colores permitidos por los valores 
vigentes del modo y del controlador gráfico, mientras que paleta.colors es un 
array de size octetos du contiene los valores de cada uno de los elementos 
de la paleta. La Tabla 3-2 muestra los valores asociados de los colores. 


Consulte las funciones setallpalette y setpalette. 


setpalette 


Esta función proporciona el medio para cambiar valores de colores individua- 
les dentro del array de definición de una paleta. 


Ejemplo: 


tinclude <graphics.h> 
int indicepaleta, color; 
setpalette( indicepaleta, color ); 
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Tabla 3-2 Valores de los colores 
CGA EGA/VGA 

Nombre Valor Nombre Valor 
BLACK 0 EGA_BLACK 0 
BLUE 1 EGA_BLUE 1 
GREEN 2 EGA_GREEN 2 
CYAN 3 EGA_CYAN 3 
RED 4 EGA_RED 4 
MAGENTA 5 EGA_MAGENTA S 
BROWN 6 EGA_BROWN 20 
LIGHTGREY 7 EGA_LIGHTGREY Ti 
DARKGREY 8 EGA_DARKGREY 56 
LIGHTBLUE 9 EGA_LIGHTBLUE 57 
LIGHTGREEN 10 EGA_LIGHTGREEN 58 
LIGHTCYAN 1 EGA_LIGHTCYAN 59 
LIGHTRED Rn EGA_LIGHTRED 60 
LIGHTMAGENTA 13 EGA_LIGHTMAGENTA 61 
YELLOW 14 EGA_YELLOW 62 
WHITE 15 EGA_WHITE 63 


Nota; La mayoría de las tarjetas EGA/VGA admiten los nombres simbólicos de los colores, tanto del 


entorno CGA como de EGA/VGA, 


HÍ como los valores de los colores que aparezcan en la lista 


anterior. Las tarjetas gráficas CGA, sin embargo, puede que respondan a valores de color EGA/VGA. 


no deseados. 


Bajo cualesquiera de los modos gráficos de 320x300 pixels (CGA, MCGA 
o ATKT), las selecciones del color están limitadas a cuatro paletas predefini- 
das: CO, C1, C2, C3. En cada una de las paletas, el color de fondo (paleta.co- 
lors[0]) puede ser definido por el usuario, pero no se permite cambiar los 
colores 1,...,3. En cualquier otro modo gráfico se permite la redefinición de 
todos los colores. La Tabla 3-3 muestra las paletas y los colores predefinidos. 


Colores y paletas predefinidos 


Tabla 3-3 
Paleta Color 0 Color 1 Color 2 Color 3 
co BLACK LIGHTGREEN LIGHTRED YELLOW 
cl BLACK LIGHTCYAN LIGHMAGENTA WHITE 
E BLACK GREEN RED BROWN 
C3 BLACK CYAN MAGENTA LIGHTGREY 
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La tarjeta gráfica IBM-8514 y el controlador IBM8514 admiten una paleta 
de 256 colores, seleccionados entre 262.144 (256K) posibles valores. Para 
este controlador no hay constantes simbólicas definidas pero, en cualquier 
caso, la tarjeta IBM-8514 puede emular los modos VGA. Consulte la Tarjeta 
Gráfica de Vídeo IBM-8514 para más detalles. 


setallpalette 


Esta función proporciona el medio para asignar toda una paleta de colores 
como paleta activa 


Ejemplo: 


ttinclude <graphics.h> 
struct palettetype paletanueva; 
setallpalette( S£paletanueva ); 


La función setallpalette define paletanueva como una nueva paleta de co- 
lores, activando estos últimos de forma inmediata. Los colores de paletanueva 
deben ser asignados con setpalette. 

En los modos gráficos de baja resolución (320x300 pixels) que utilizan 
paletas de color predefinidas, no se permite el cambio del color de fondo. En 
los gráficos que permiten cambios en la definición del color, tales como 
CGACO, CGACI y CGAC2, el cambio de la paleta de colores provoca el 
borrado de la pantalla gráfica. Consulte también la función setpalette. 


Tarjeta gráfica de vídeo IBM-8514 


Para dar paso a las posibilidades de 256/256K paletas/colores de la tarjeta 
gráfica IBM-8514 existen nuevas funciones. 


setrbgpalette 


Esta rutina permite el uso de la tarjeta gráfica IBM-8514 y el controlador 
IBM8514. 


Ejemplo: 


Hfinclude <graphics.h> 
int numcolor, valorrojo, valorazul, valorverde; 
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setrgbpalette (numcolor, valorrojo, valorazul, 
valorverde); 


La función detecteraph no es capaz de identificar adecuadamente la tarjeta 
IBM-5814: en cambio, identifica este hardware como compatible VGA. Se 
recomienda el uso del controlador VGA cuando se desee la máxima compati- 
bilidad (consulte initeraph) y no sea necesaria la resolución del modo 
IBM8514HL 

Este controlador no dispone de constantes definidas de modo simbólico. 
Sin embargo, cada color vendrá definido por medio de tres componentes: rojo, 
azul y verde, representados con valores de 6 bits. 

El argumento numcolor permite la definición del color de paleta (entre 0 
y 255) por medio de los argumentos valorrojo, valorazul y valorverde. Sólo 
son útiles los seis bits más significativos del octeto de menor peso de cada 
uno de los argumentos de color (valores comprendidos entre el O y el 255, 
contados de cuatro en cuatro). Por ejemplo, los argumentos de los colores 252, 
253, 254 y 255 se tratarán de forma idéntica, ya que los seis bits más signifi- 
cativos son iguales. 

Las otras rutinas de manipulación de la paleta que se encuentran en la 
biblioteca gráfica no tienen validez con el controlador IBM8514 en el modo 
IBM8514HI (1024x768 pixels). Entre ellas están setallpalette, setpalette y 
getpalette. Incluso la función floodfill no tiene validez con este controlador y 
en este modo. 


Funciones de 
posicionamiento en pantalla 


Funciones de las pantallas gráficas 


Los modos gráficos sustituyen las s coordenadas 25x80 de la pantalla 
por coordenadas de pixels, pudiendo éstas últimas variar, en función del hard- 

vare, desde las 320 posiciones en horizontal por 200 en vertical, hasta 1.024 
en horizontal por 768 en vertical. Cada día van apareciendo nuevas y mayores 
resoluciones. 

Debido a la gran variedad de resoluciones de pantalla, la mayoría de los 
programas gráficos toman la precaución de examinar el hardware y así elegir 
adecuadamente los controladores necesarios. En esta labor se utilizan funcio- 
nes tales como getmaxx y getmaxy para comprobar el tamaño de la pantalla 
y permitir que posteriores operaciones se ajusten a los límites definidos. 


getmaxx y getmaxy 


Estas funciones devuelven los valores máximos permitidos de las coordenadas 
x e y en el modo y controlador que nos ocupan. 


Ejemplo: 


ttinclude <graphics.h> 
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int MaxX, MaxY; 
MaxX = getmaxx(); 
MaxY = getmaxy(); 


En el modo EGAHI (640x350), por ejemplo, getmaxx devuelve 639 (valo- 
res entre O y 639) y getmaxy devuelve 349 (valores entre O y 349). Tanto un 
valor como otro son independientes de los parámetros de la ventana gráfica. 
Consulte getviewsettings, getx y gety. La función gettextinfo proporciona una 
información similar en los modos de texto. 


getx y gely 


Estas funciones devuelven las coordenadas horizontal y vertical del pixel so- 
metido a examen. Estas coordenadas proporcionan la posición del pixel en la 
ventana gráfica vigente. Si no existiera ninguna ventana gráfica activa, la 
ventana gráfica por omisión incluiría la pantalla completa. 


Ejemplo: 


tinclude <graphics.h> 
int posx, posy; 
posx = getx(); 
posy = gety(); 


Consulte setviewsettings, moverel y moveto. Las funciones wherex y whe- 
rey definidas en el modo de texto proporcionan una información similar. 


moveto 


Esta función desplaza la posición vigente (PV) hacia las coordenadas (x, y). 
absolutas respecto a la pantalla y relativas respecto a los valores de la ventana 
gráfica activa, donde (0,0) está definida como la esquina superior izquierda. 
La posición resultante no está limitada por los parámetros de la ventana grá- 
fica activa ni por las coordenadas máxima y mínima de la pantalla. 


Ejemplo: 
tiinclude <graphics.h> 
int x, y; 


moveto( x, y ); 


Si la ventana gráfica no,tiene definidos sus parámetros, los valores dados 
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por omisión incluyen la pantalla completa. Consulte moverel. En los modos 
de texto, gotoxy realiza la misma labor. 


moverel 


En aplicaciones gráficas, a veces, un desplazamiento relativo ofrece mayor 
maniobrabilidad que uno absoluto. La función moverel desplaza la posición 
vigente hacia una nueva posición; la distancia relativa entre las posiciones 
nueva y antigua viene dada por los valores de sus argumentos despx y despy. 
La nueva posición resultante no está limitada por los valores de los paráme- 
tros de la ventana gráfica activa ni por las coordenadas máxima y mínima de 
la pantalla. 


Ejemplo: 


tinclude <graphics.h> 
int despx, despy; 
moverel( despx, despy ); 


Consulte moveto. 


Funciones de tratamiento 
de pixels, dibujos e imágenes 


líneas rectas y las curvas son muy útiles en multitud de aplicaciones 
sin embargo, determinadas imágenes sólo pueden tener su origen en 
la manipulación de pixels de forma individual. Las funciones de manipulación 
de líneas rectas y curvas difícilmente pueden trabajar si no es con procedi- 
mientos de escritura de pixels. El uso de funciones de tratamiento de pixels a 
una escala superior permite salvar, reescribir y borrar imágenes completas, o 
combinar imágenes ya existentes en pantalla. 


Funciones de tratamiento de pixels 


Son las que se enumeran a continuación: 


putpixel 


Esta función activa el pixel especificado a través de (posx, posy) con el color 
que se indica como tercer argumento. 


Ejemplo: 


include <graphics.h> 
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int posx, posy, color; 
putpixel( posx, posy, color); 


En los modos gráficos que utilizan paletas de color predefinidas, el argu- 
mento color debe estar en el rango 0..3, donde O proporciona el valor del color 
de fondo. En modos de color de paleta completa pueden utilizarse tanto los 
nombres de color definidos en GRAPHICS.H como sus valores enteros aso- 
ciados, Consulte la función getpixel. 


getpixel 


Esta función devuelve el índice del elemento de la paleta de colores corres- 
pondiente al color del pixel ubicado en (x,y). El índice de la paleta puede 
corresponder o no al valor real del color. 


Ejemplo: 
tiinclude <graphics.h> 
int x, y, color; 


color = getpixel( x, y ); 


Consulte también getimage y putimage. 


Funciones de trazado de líneas 


line 


Turbo C++ proporciona tres funciones para el trazado de líneas rectas: line, 
lineto y linerel. Las coordenadas de los puntos de estas líneas son enteros 
(positivos o negativos) y su representación se realiza de forma relativa a las 
coordenadas de la ventana gráfica vigente, aunque no necesariamente dentro 
de los límites de esta última. Si el valor de dentrolimite de la ventana gráfica 
vigente es distinto de cero, las líneas dibujadas quedarán truncadas en las 
fronteras de la ventana gráfica. Si dentrolimite es cero, las líneas quedarán 
truncadas sólo en los límites de la pantalla, aunque las coordenadas del punto 
final y la posición vigente resultante estén más allá de los límites de la ven- 
tana gráfica y/o de la pantalla. 


La función line traza una línea que comienza en el par de coordenadas (prin- 
cipiox, principioy) y finaliza en el par de coordenadas (finx, finy). Para ello 
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utiliza los valores vigentes del color de dibujo, estilo de línea y anchura de 
línea. La posición vigente no sufre cambios. 


Ejemplo: 
tinclude <graphics.h> 
int principiox, principioy, finx, finy; 


line ( principiox, principioy, finx, finy ); 


Consulte también funciones linerel y lineto. 


lineto 


Esta función traza una línea que comienza en la posición vigente y fi 
las coordenadas especificadas mediante (posx, posy). Para ello se utilizarán 
los valores vigentes del color, estilo y anchura de línea. La nueva posición 
vigente será (posx, posy). 


Ejemplo: 
Htinclude <graphics.h> 


int posx, posy; 
lineto ( posx,posy ); 


linerel 


Esta función traza una línea desde la posición vigente (PV) hasta un punto 
desplazado de PV la distancia especificada por (despx, despy). La línea se 
trazará con los valores vigentes de color, estilo y anchura de línea. PV queda 
actualizada con los valores (PVX+despx, PVY+despy). 


Ejemplo: 
ttinclude <graphics.h> 
int despx, despy; 


linerel ( despx, despy ); 


Consulte también las funciones liñe y lineto. 
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Estilos de líneas 


Para la representación de gráficos existen dos anchuras de línea y varios 
estilos. Al usuario se le permite definir su propio estilo de línea usando un 
patrón de 16 pixels. La anchura de la línea y los valores del patrón serán 
utilizados por las funciones arc, bar, bar3d, circle, drawpoly, ellipse, line, 
linerel, lineto, pieslice y rectangle. 

Tanto Turbo C++, como Turbo Pascal. proporcionan una nueva función: 
setwritemode. 


setlinestyle 


Esta función define los valores vigentes de anchura y estilo de línea. 
Ejemplo: 


tinclude <graphics.h> 
unsigned modelolinea; 
int estilo, anchura; 
setlinestyle( estilo, modelolinea, anchura ); 


Las variables estilo y anchura tienen los valores especificados en GRAP- 
HICS.H, que se muestran en la Tabla 5-1, 


Tabla 5-1 Estilos de línea 


Nombre Valor Descripción 


SOLID_LINE 0 Línea sólida (por omisión) 
DOTTED_LINE 1 Línea punteada 
CENTER_LINE A Línea discontinua centrada 
DASHED_LINE 3 Línea discontinua 


USERBIT_LINE 4 Estilo definido por el usuario 
NORM_WIDTH 1 Anchura de | pixel (por omisión) 
THICK_WID 3: Anchura de 3 pixels 


Nota: También puede asignarse el ancho 2 de línea. pero cualquier valor superior a 3 provoca un error 


gráfico y fuerza los valores estándar (por omisión) para el estilo y la anchura de línea. 


El argumento modelolinea es un patrón de 16 bits definido a medida del 
usuario para el trazado de líneas. El argumento modelolinea sólo puede espe- 
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cificarse si estilo = USERBIT_LINE (valor nuinérico 4). Si estilo /= USER- 
BIT_LINE, modelolinea deberá contener un valor, aunque no será utilizado. 

Si se utiliza un patrón definido por el usuario, todo pixel que se correspon- 
da con un bit activo en el patrón quedará activado, mientras que los pixels que 
se correspondan con bits no activos en el patrón quedarán desactivados. Por 
lo tanto, si modelolinea = OxFFFF, se dibujará una línea sólida, y si modelo- 
linea = 0x9999, se dibujará una línea con dos pixels activos y dos inactivos, 
alternativamente. Para una línea discontinua larga podrían utilizarse los valo- 
res de modelolinea OxFF0O ó OxF0OF. 

En caso de recibir argumentos erróneos, la función setlinestyle devolverá 
el valor -11 (error gráfico o genérico), permaneciendo activo el actual estilo 
de línea. 

Consulte getlinesettings. 


setwritemode 


Esta función activa el modo de escritura de pantalla para el trazado de líneas 
en modos gráficos, Para ello se definen dos constantes: COPY_PUT y 
XOR_PUT, 


Ejemplo: 


tinclude <graphics.h> 
int modoescri; 
setwritemode( modoescri ); 


El valor COPY_PUT utiliza la instrucción del lenguaje ensamblador MOV 
para reescribir los pixels existentes en la pantalla. El valor XOR_PUT utiliza 
la orden XOR para combinar líneas nuevas con imágenes de pantalla ya exis- 
tentes. Si por medio de XOR_PUT una misma línea se dibujara dos veces, 
ésta quedaría borrada, restaurándose la visión original de la pantalla. 

Recuerde que setwritemode trabaja sólo con line, linerel, lineto, rectangle 
y drawpoly. 


getlinesettings 


Esta función devuelve infolinea con el estilo de línea, el patrón (upattern) y 
la anchura. 


Ejemplo: 


ttinclude <graphics.h> 
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struct linesettingstype infolinea; 
getlinesettings( £infolinea ); 


La estructura linesettingstype se define en GRAPHICS.H de la forma: 


struct linesettingstype 

t 
int linestyle; 
unsigned upattern; 
int thickness; 

Y; 


Consulte setlinestyle sobre los valores de estilo y anchura de las líneas. 


Rectángulos, gráficos de barras y polígonos 


Es cierto que cualesquiera de las siguientes formas geométricas pueden crear- 
se mediante la función line, sin embargo es conveniente tener funciones que 
permitan una manipulación más rápida de las formas más comunes. 


rectangle 


bar 


Es una función que dibuja un cuadrado o un rectángulo definido por las 
coordenadas de las esquinas, pasadas como argumentos. 


Ejemplo: 


tinclude <graphics.h> 
int izquierda, arriba, derecha, abajo; 
rectangle( izquierda, arriba, derecha, abajo ); 


La figura se dibuja en función de los valores vigentes de color, estilo y 
anchura de línea. Si alguna de las esquinas no cae dentro de los límites de la 
ventana gráfica activa y dentrolimite está activo, entonces sólo se generará la 
parte de la figura que se solape con la ventana gráfica. 

Consulte la función bar. 


Esta función dibuja un cuadrado o un rectángulo definido por las coordenadas 
de las esquinas pasadas como argumentos. 
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Ejemplo: 


tinclude <graphics.h> 
int izquierda, arriba, derecha, abajo; 
bar( izquierda, arriba, derecha, abajo ); 


A diferencia de la figura generada con la función rectangle, la generada 
con bar no tendrá contorno y utilizará los valores del patrón de relleno y del 
color de relleno (no el color de dibujo). Si desea una barra con contorno, 
utilice bar3d con el valor de profundidad nulo. 

Consulte getcolor, getfillsettings, getlinestyle, rectangle y setfillpattern. 


bar3d 


Esta función define el contorno de una barra tridimensional, utilizando los 
valores vigentes de estilo de línea y color de dibujo, rellenando luego la 
superficie de la figura con los valores vigentes de patrón y color de relleno. 


Ejemplo: 


tinclude <graphics.h> 

int izquierda, arriba, derecha, abajo, 
profundidad, indicatapa; 

bar3d( izquierda, arriba, derecha, abajo, 
profundidad, indicatapa ); 


La profundidad de la barra viene dada en pixels (normalmente alrededor 
del 25% de la anchura), siendo su proporción x/y de 1:1 (aproximadamente 
45 grados, ajustados por el factor de aspecto de la pantalla). Si el parámetro 
indicatapa se pasa con el valor cero, la barra no llevará remate superior. Esto 
permite el apilamiento de las barras. 

Se puede generar una figura más elaborada si cada una de las superficies 
de la figura se rellena con colores y/o patrones diferentes (función floodfill). 
Antes de llamar a bar3d, deberá utilizarse la función setfillpattern y seleccio- 
nar EMPTY_FILL, 

Consulte bar, getcolor, getfillsettings, setlinestyle y rectangle. 


drawpoly 


Esta función dibuja el contorno de un polígono con los valores vigentes de 
color y estilo de línea. 
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Ejemplo: 


tinclude <graphics.h> 

int puntos; 

int figural[] = (í 100,100, 110,120, 100,130, 120,125, 

140,140, 130,120, 140,110, 120,115, 

100,100 ); 

180,100, 210,120, 200,130, 220,125, 

240,140, 230,120, 240,110, 220,115, 

220,100 ); 

puntos = sizeof ( figural ) / ( 2 * sizeof ( int ) ); 

drawpoly( puntos, figural ); 

drawpoly( sizeof( figura2 ) / ( 2 * sizeof( int ) ), 
figura2 ); 


int figura2[] 


" 
- 


El argumento puntos proporciona el número de vértices del polígono y 
figura apunta a una secuencia de pares enteros, cada uno de los cuales define 
las coordenadas x, y de un vértice del polígono. 

Para dibujar una figura cerrada de n vértices, deberá hacerse puntos = n+1, 
y el n_ésimo par de coordenada deberá coincidir con el primer par. 

En el ejemplo, figural define una estrella de cuatro puntas. En vez de 
asignar una constante a la variable puntos, el número de puntos de la figura 
se calculará en base al cociente de sizeof(figura) por el valor doble de si- 
zeoflint) (ya que cada punto necesita dos coordenadas enteras). La segunda 
figura, fígura2, convierte la estrella de cuatro puntas en una línea abierta, pero 
se crea de la misma forma. 


Consulte getlinestyle, getcolor, fillpoly y setgraphbufsize. 


fillpoly 


Esta función dibuja el contorno de un polígono con los valores vigentes de 
color y estilo de línea, y luego rellena la figura, utilizando para ello el patrón 
y el color de relleno. 


Ejemplo: 


tinclude <graphics.h> 


int figural[] 1 75, 0, 100, 50, 150, 75, 100, 100, 75, 
150,]50, 100, 0, 75, 50, 50, 75, 0); 
int figura2[] = ( 75, 50, 100, 75, 75, 100, 50, 75 ); 

fillpoly ( sizeof(figural) / (2*sizeof(int)), figural ); 


fillpoly ( sizeof(figura2) / (2*sizeof(int)), figura2 ); 
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El argumento puntos proporciona el número de vértices del polígono; figu- 
ra apunta a la secuencia de parejas de enteros donde cada pareja define las 
coordenadas x, y de un vértice del polígono. 

Para dibujar una figura cerrada con n vértices, la variable puntos debe 
valer n+1 y el último par de coordenadas debe coincidir con el primero. 

En el ejemplo, figural define una estrella de 4 puntas. En lugar de asignar 
un valor constante a la variable puntos, el número de puntos se obtiene de la 
división de sizeof(figural) por el doble de sizeof(int) (porque cada punto 
necesita dos coordenadas). La segunda figura, figura2, genera un cuadro 
abierto. Recuerde que fillpoly cerrará la figura al conectar los puntos iniciales 
con los finales; luego rellenará de color la región encerrada. 

A diferencia de floodfill, el algoritmo de relleno utilizado por fillpoly no 
depende de un contorno continuo para definir el área; en cambio, admite 
estilos de línea quebrada; finalmente, la función rellena el área definida por 
el polígono (que incluye la sobreimpresión de cualquier figura que esté en el 
interior del contorno). Si tuviera lugar un error, graphresult devolvería el 
valor -6 (out of memory in scan fill o bien desbordamiento de memoria du- 
rante el examen del relleno). 

Consulte drawpoly, getfillsettings, setfillpattern, getcolor y setgraphbufsize. 


Factor de aspecto visual 


Cada controlador y modo gráficos llevan asociados un factor de aspecto (que 
depende de las dimensiones verticales, horizontales y del espaciamiento). Pue- 
de que una figura que se muestra redonda en una pantalla (con modo y tarjeta 
gráficos), aparezca alargada o achatada al utilizar un hardware diferente. 

Para estar seguro de que las figuras geométricas aparecen en la pantalla 
como se desea, deberá utilizarse el factor de aspecto de pantalla para calcular, 
y en su caso corregir, posibles distorsiones. 


getaspectratio 


Cada controlador y modo gráficos llevan asociado un factor de aspecto que se 
calcula a partir de la altura y la anchura relativas de los pixels. 


Ejemplo: 


include <graphics.h> 
int aspx, aspy; 
double FactorAspecto; 
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getaspectratio( £aspx, £aspy); 
FactorAspecto = (double) aspx / (double) aspy; 


Una tarjeta gráfica EGA (EGAHD, por ejemplo, tiene un factor de aspecto 
de 0,775 (aspx = 7750, aspy = 10000), ya que los pixels de EGA son 1/3 más 
altos que anchos. Por otra parte, la tarjeta gráfica VGA tiene un factor de 
aspecto de 1,000 (aspx = 10.000, aspy = 10.000), por lo que los pixels tienen 
forma cuadrada. Como se puede ver, hay una gran diferencia entre ambas 
representaciones de pantalla. 

La función getaspectratio devuelve valores enteros para los aspectos según 
los ejes x e y. El factor de aspecto se calcula de la forma aspx/aspy y se utiliza 
automáticamente como factor de escala en las funciones arc, circle y pieslice 
para conseguir la normalización del aspecto visual de los círculos y los arcos 
sobre la pantalla. El factor de escala debe incluirse en la rutina ellipse, ya que, 
en caso contrario, no se lleva a efecto ningún ajuste. El factor de aspecto 
puede utilizarse también con otras figuras geométricas para conseguir su es- 
cala y su apariencia. 

El factor de aspecto según el eje y tiene como valor normalizado 10.000 
y, en general aspx <= 10.000 (la mayoría de los pixels de pantalla son más 
altos que anchos), 


setaspectratio 


Todos los controladores y modos gráficos tienen un factor de aspecto visual 
marcado por el valor relativo de la altura respecto a la anchura de los pixels, 
de forma que se pueda asegurar la apariencia habitual de los círculos. 


Ejemplo: 


Htinclude <graphics.h> 
int aspx, aspy; 
setaspectratio (aspx, aspy); 


Si los círculos parecieran elipses, los monitores estarían desalineados y 
necesitarían ajuste mecánico (o electrónico). Generalmente, el ajuste podrá 
llevarse a cabo por medio de la función setaspectratio (en la versión 2.0 de 
Turbo C o superiores). 


Círculos, curvas y arcos 


Las curvas son las figuras con mayor dificultad de realización, ya que nece- 
sitan cálculos relativamente complejos para determinar los puntos que las 
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componen. Las funciones circle, ellipse y arc son muy importantes a la hora 
de generar figuras curvas. 

La función circle genera un círculo completo, mientras que las funciones 
arc y ellipse se invocan pasándoles los ángulos de comienzo y fin, pudiendo 
generar curvas completas (cerradas) o tan sólo arcos parciales. 

La función getarccoords devuelve las coordenadas del centro, del principio 
y del final de la última llamada a arc o a ellipse, permitiendo el trazado de 
líneas hasta los extremos del arco. La función pieslice utiliza la combinación 
de las posibilidades anteriores para generar un arco, donde las líneas se trazan 
desde los puntos extremos hasta el centro. 

Los ángulos de principio y fin utilizados por las funciones arc, ellipse y 
pieslice se dan en grados con 0? y 360? a la derecha, 90% en la parte de arriba, 
180% a la izquierda y 270% en la parte de abajo. 

Para dibujar un arco cerrado o una elipse, deberá especificarse el valor 0% 
como ángulo de comienzo y 360% como ángulo de fin. Los ángulos superiores 
a 360% pueden servir como argumentos, aunque serán reducidos a valores 
angulares comprendidos entre los 0? y 360%, Por ejemplo, un ángulo de co- 
mienzo de 300% y un ángulo de fin de 450% son las coordenadas necesarias 
para dibujar un arco desde el punto 300% al punto 90%. Este mismo arco se 
dibuja con los puntos de comienzo y fin marcados por los ángulos 300% y 90%. 
No es una necesidad inherente al concepto de ángulo final que éste deba ser 
mayor que el ángulo de comienzo, aunque el hecho de permitir ángulos supe- 
riores a 360% puede simplificar múltiples procedimientos de programación. 

Las funciones arc, circle, ellipse y pieslice no hacen uso del estilo de línea 
vigente. Todas las curvas se trazan como líneas sólidas, con el color vigente 
de dibujo. 


circle 


Esta función dibuja un arco completo desde los 0% hasta los 360%. El círculo 
se dibuja con el color actual y el radio especificado (en pixels), quedando 
centrado en las coordenadas de pantalla especificadas. 


Ejemplo: 


tinclude <graphics.h> 
int centrox, centroy, radio; 
circle (centrox, centroy, radio); 


A diferencia de la función ellipse, circle se invoca con un único radio 
como argumento. Posteriormente, el factor de aspecto visual permitirá visua- 
lizar el resultado adecuadamente. 
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Consulte arc, ellipse, getaspectratio y pieslice. 


arc 
Esta función dibuja una curva circular con un radio idéntico al especificado, 
entre los ángulos indicados y centrada en las coordenadas x e y dadas como 
argumentos. 
Ejemplo: 
ttinclude <graphics.h> 
int centrox, centroy, anguloinicial, angulofinal, radio; 
arc (centrox, centroy, anguloinicial, angulofinal, radio); 
Los ángulos de principio y fin vienen dados en grados (entre O y 360). El 
centro de coordenadas y el radio vienen dados en pixels. Los valores de color 
y estilo de línea son los vigentes. El factor de aspecto visual se manipula 
automáticamente. 
Consulte circle, ellipse, getaspectratio y pieslice. 
ellipse 


Esta función se comporta de forma similar a la función arc, con la diferencia 
de que hay dos especificaciones de radio, una por cada eje coordenado del 
plano. La Figura 5-1 muestra el movimiento angular en sentido contrario a las 
agujas del reloj. 


Ejemplo: 
tinclude <graphics.h> 
int centrox, centroy, anguloinicial, angulofinal, 


radiox, radioy; 


ellipse (centrox, centroy, anguloinicial, angulofinal, 
radiox, radioy); 


ellipse (centrox, centroy, anguloinicial, angulofinal, 
radiox, radioy * FactorAspecto); 
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El arco elíptico tiene como centro las coordenadas x e y; empieza y termina 
en los ángulos dados como parámetros, y utiliza el color vigente. Para cons- 
truir una elipse completa (cerrada) debe especificarse un ángulo de comienzo 
de 0? y un ángulo de fin de 360", 

A diferencia de las funciones arc y circle, en esta función el factor de 
aspecto visual no queda aplicado automáticamente. Si, en lugar de dar las 
distancias entre pixels, fuera necesario especificar los radios en forma propor- 
cional, la distancia sobre el eje y debería calcularse de la forma radioy * 
FactorAspecto. 

Consulte arc, circle, fillellipse, pieslice y sector. 


Figura 5-1 Trazado de ángulos 


Los ángulos de arc, ellipse y pieslice van en sentido contrario a las agujas del reloj, 
comenzando con 0'/360" a la derecha, 90* arriba, 180" a la izquierda y 270" abajo. 


getarccoords 


Esta función devuelve el punto final y las coordenadas del centro de la última 
llamada a las funciones arc o ellipse. 
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Ejemplo: 


ttinclude <graphics.h> 
struct arccoordstype infoarco; 
getarcoordds (Kinfoarco); 


La estructura arccoordstype se define en GRAPHICS.H de la forma: 


struct arccoordstype 
1 

int Xx, Yi 

int xstart, ystart, xend, yend; 
Y; 


La estructura define el centro de coordenadas (x,y) del arco, las coordena- 
das del punto de comienzo, xstart, ystart (son coordenadas de pixels, no de 
ángulos) y el punto final (xend, yend) del arco. Estos valores son utilizados 
por la función pieslice y permiten dibujar cuerdas, radios u otras líneas hasta 
los puntos extremos del arco. 

Si la función circle ha sido la última en ser llamada, la función getarc- 
coords devuelve las coordenadas del centro del círculo. Las coordenadas 
(xstart, ystart) y (xend, yend) marcan la posición 0% del círculo. 


fillellipse 


Esta función (sólo en la versión 2.0 de Turbo C o superiores) dibuja una elipse 
haciendo uso de los parámetros centrox, centroy, para definir el centro, y de 
radiox, radioy, como ejes horizontal y vertical, respectivamente. La función 
rellena la elipse con los valores vigentes de color y patrón de relleno. 


Ejemplo: 


ttinclude <graphics.h> 
int centrox, centroy, radiox, radioy; 
fillellipse (centrox, centroy, radiox, radioy); 


A diferencia de la función ellipse, no se admiten los ángulos de comienzo 
y final como argumentos, por lo que no se pueden dibujar arcos elípticos. 


Consulte arc, circle, ellipse, pieslice y sector. 
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pieslice 


Esta función crea un arco, dibuja una línea desde los puntos extremos al punto 
central y luego rellena el sector angular. 


Ejemplo: 


ttinclude <graphics.h> 

int centrox, centroy, anguloinicial, angulofinal, radio; 

pieslice (centrox, centroy, anguloinicial, angulofinal, 
radio); 


El contorno de la figura se dibuja con los valores de color y estilo de línea 
vigentes para las líneas radiales. Posteriormente, la figura quedará rellena con 
el color y el patrón de relleno elegidos. El factor de aspecto se ajusta automá- 
ticamente. 


Consulte arc, circle, ellipse, getaspectratio y sector. 


sector 


Esta función genera un arco elíptico, traza líneas desde los puntos extremos 
hasta el punto central y luego rellena la figura completa. 


Ejemplo: 


Htinclude <graphics.h> 
int centrox, centroy, anguloinicial, angulofinal, 
radiox, radioy; 
sector (centrox, centroy, anguloinicial, angulofinal, 
radiox, radioy); 


El contorno del sector se dibuja con los valores de color y estilo de línea 
vigentes para las líneas radiales; posteriormente se rellena con el color y el 
patrón de relleno elegidos, El factor de aspecto se ajusta automáticamente. 

Consulte arc, circle, fillellipse, floodfill, getaspectratio y pieslice. 


Patrones y colores de relleno 


Existen distintas funciones para la manipulación de patrones de relleno, para 
rellenar áreas cerradas y para crear patrones de relleno a la medida del usua- 
rio. Entre ellas están floodfill, getfillpattern, getfillsettings, setfillpattern y 
setfillstyle. 
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Jfloodfill 


Esta función rellena un área delimitada por una frontera exterior, con un color 
especificado a través de colorborde (que normalmente coincide con el color 
vigente de dibujo). Las coordenadas (puntox, puntoy) marcan un punto alea- 
torio del área que debe rellenarse, usando de los valores vigentes de color y 
patrón de relleno. 


Ejemplo: 


tinclude <graphics.h> 
int puntox, puntoy, colorborde; 
floodfil1 (puntox, puntoy, colorborde); 


Si el punto de comienzo se encuentra fuera del área delimitada por el 
borde, se procederá al relleno del área exterior (limitada por la ventana gráfi- 
ca). Si la línea que define el área está quebrada, el relleno contendrá agujeros. 
Para ello sólo hace falta una pequeña falla en la línea. 

Por motivos de compatibilidad se aconseja el uso de la función fillpoly en 
lugar de floodfill. En caso de error, graphresult devuelve el valor -7 (desbor- 
damiento de memoria en floodfill). 

Consulte fillpoly, getfillsettings, getlinesettings, y setgraphbufsize. 


setfillpattern 


Esta función selecciona un patrón de relleno de 8x8 con el color especificado. 
Ejemplo: 


tinclude <graphics.h> 

int color; 

char diamante[8] = (0x10, 0x38, 0x7C, OxFE, 
0x7C, 0x38, 0x10, 0x00); 

setfillpattern (diamante, color); 


En el ejemplo, diamante es una secuencia de ocho octetos, correspondien- 
tes a los ocho pixels del patrón. Los bits que están a uno activan los pixels, 
mientras que los bits a cero, los desactivan. En el ejemplo se genera un 
pequeño patrón de diamante de 7x7 con un borde de un pixel a la derecha y 
abajo. 

Después de llamar a setfillpattern para generar un patrón de usuario, 
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deberá hacerse una llamada a setfillstyle para convertir USER_FILL (12) en 


el patrón actual. 


Otros posibles patrones son: 


char comprobacion[8] = 


char cadenas1[8] = 


char cadenas2[8] 


Í OxAA, 0x55, OXAA, 0x55, 
OXxAA, 0x55, OxAA, 0x55 ); 

€ OXx6F, 0x40, OxA0, OxAO, 
OxA0, 0x40, Ox6F, 0x00 ); 

f 0x3C, 0xC3, OxA0, 0x40, 
0x90, OXxA0, 0x3C, 0xC3 ); 


Consulte getfillpattern, getfillstyle y setfillstyle. 


setfillstyle 


Esta función carga los valores vigentes de patrón y color de relleno. 


Ejemplo: 


Hkiinclude <graphics.h> 
setfillstyle(SOLID_FILL, GREEN); 


Recuerde que los colores de relleno y de dibujo son distintos y pueden 
tener valores diferentes. Los patrones de relleno se definen en GRAPHICS.H, 
según se observa en la Tabla 5-2. 


Nombre del patrón 


EMPTY_FILL 
SOLID_FILL 
LINE_FILL 
LTSFLASH_FILL 
SLASH_FILL 
BKSLASH_FILL 
LTBKSLASH_FILL 
HATCH_FILL 
XHATCH_FILL 
INTERLEAVE_FILL 
WIDE_DOT_FILL 
CLOSE_DOT_FILL 
USER_FILL 


Tabla 5-2 


Valor 


Patrones de relleno 


Descripción 


Color de fondo 


Relleno 
Relleno 
Relleno 
Relleno 
Relleno 
Relleno 


sólido 

con ——— 

con //1/ 

con //// , grueso 
con WM, grueso 
con WM 


Cuadriculado fino 
Cuadriculado grueso 
Líneas de intercalado 


Puntos con separación ancha 
Puntos con poca separación 


Patrón definido por el usuario 
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Todos los patrones, excepto EMPTY_FILL, utilizan el color de relleno 
vigente. El patrón 12 (USER_FILL) sólo puede llamarse después de haber 
definido el patrón de relleno del usuario, por medio setfillpattern. 

Consulte fillpoly, floodfill, getfillpattern y getfillstyle. 


getfillpattern 


Esta función copia un patrón de relleno definido por el usuario (activado con 
setfillpattern) en el espacio de memoria ocupado por infopatronrelleno. 


Ejemplo: 
ttinclude <graphics.h> 


char infopatronrelleno[8]; 
getfillpattern (Ssinfopatronrelleno); 


Consulte setfillpattern. 


getfillsettings 


Esta función devuelve información sobre los valores vigentes del patrón de 
relleno, dejándola en inforelleno. 


Ejemplo: 


tinclude <graphics.h> 
struct fillsettingtype inforelleno; 
getfillsettings (Sinforelleno); 


La estructura fillsetringrype se define en GRAPHICS.H, de la forma: 


struct fillsettingtype 

t 
int pattern; /* Sólo números de patrón definidos */ 
int color; 

Y 


Consulte getfillpattern, setfillpattern y setfillstyle. 
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Area interna de memoria intermedia para gráficos 


Las funciones gráficas pueden devolver mensajes de error, indicando que no 
hay memoria intermedia suficiente para efectuar sus tareas. Cuando esto su- 
cede, la función setgraphbufsize permite reservar memoria adicional para 
aquélla. 


setgraphbufsize 


Determinadas funciones gráficas utilizan áreas de memoria creadas por init- 
graph vía _graphgetmem. El tamaño del área intermedia por omisión es de 4 
Kb (4.096 octetos), pudiendo ser decrementada para ahorrar espacio o incre- 
mentada si hace falta más espacio. 


Ejemplo: 


ttinclude <graphics.h> 
unsigned dimmemoria, antiguadimmmemoria; 
antiguadimmemoria = setgraphbufsize (dimmemoria); 


La función setgraphbufsize debe ser invocada antes de la llamada a init- 
graph. La función setgraphbufsize devuelve el tamaño inicial del área inter- 
media. 


Manipulación de imágenes 


Además de las funciones de creación de dibujos existen procedimientos que 
permiten copiar, duplicar y manipular las imágenes de la pantalla. Estas últi- 
mas son imprescindibles para cualquier tipo de animación y muy útiles para 
la reproducción de imágenes en aplicaciones poco elaboradas. 


imagesize 


Esta función devuelve el tamaño, en octetos, necesario para guardar una ima- 
gen de bits especificada a través de coordenadas de pantalla. 


Ejemplo: 


include <graphics.h> 

unsigned dimension; 

int izquierda, arriba, derecha, abajo; 

dimension = imagesize (izquierda, arriba, derecha, abajo); 
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Si el tamaño necesario para guardar la imagen iguala o supera los 64 Kb, 
se produce la devolución del valor OXFFFF (valor absoluto 65535, equivalente 
al entero -1). 


Consulte getimage y putimage. 


getimage 


Esta función provoca el almcenamiento de una imagen de pixels de pantalla 
especificada por los cuatro parámetros que recibe. 


Ejemplo: 


ttinclude <graphics.h> 

void far *imagenbits; 

int izquierda, arriba, derecha, abajo; 

unsigned dimension; 

dimension = imagesize (izquierda, arriba, derecha, abajo); 
imagenbits = far malloc (dimension); 

getimage (izquierda, arriba, derecha, abajo, imagenbits); 


La función imagesize permite calcular el tamaño de memoria necesario, 
mientras que la función malloc provoca la reserva de memoria para el aloja- 
miento de la imagen (la reserva de memoria debe ser inferior a los 64 kB). 

Consulte imagesize y putimage. 


putimage 
Esta función pinta sobre la pantalla una imagen previamente guardada a ni- 


vel de bits, situando su esquina superior izquierda en la posición (izquierda, 
arriba). 


Ejemplo: 


ttinclude <graphics.h> 

void far *imagenbits; 

int izquierda, arriba, opciones; 

putimage (izquierda, arriba, imagenbits, opciones); 


El parámetro opciones controla la combinación de cada uno de los pixels 
de la imagen (color) con los pixels que existen en la pantalla. Los valores de 
opciones se enumeran en GRAPHICS.H, en putimage_ops, según se muestra 
en la Tabla 5-3. 
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Tabla 5-3 Opciones putimage 


Nombre Valor Descripción 

COPY_PUT 0 Copia la imagen sobre la pantalla, con reemplazamiento 
de los pixels existentes. 

XOR_PUT 1 Operación OR exclusiva de la imagen con los pixels 
existentes. 

OR_PUT 2 Operación OR lógica de la imagen con los pixels 
existentes. 

AND_PUT 3 Operación AND lógica de la imagen con los pixels 
existentes. 

NOT_PUT 4 Copia de la imagen sobre la pantalla, con los bits 
invertidos. 


El programa PON-DEMO.C muestra el funcionamiento de las distintas 
opciones de putimage. PON-DEMO ha sido escrito para pantallas en color 
(EGA o VGA preferentemente), aunque puede adaptarse a sistemas monocro- 
mo; por consiguiente, los efectos de solapamiento de los colores se observarán 
con dificultad o resultarán marcadamente diferentes. 

Se sugiere ejecutar el programa tal como se presenta y luego experimentar 
con diferentes patrones y colores. 


COPY PUT Cada pixel de la imagen se proyecta directamente sobre la 
pantalla, reemplazando cualquier otro pixel ya existente. Entre ellos se inclu- 
yen los pixels de la imagen que están en blanco (fondo). Una imagen en 
blanco permite borrar otras imágenes de la pantalla o porciones de ésta. Sin 
embargo, es la opción XOR_PUT la que con frecuencia permite desactivar 
una imagen de la pantalla. 


XOR_PUT Cada uno de los pixels existentes en la pantalla sufre un OR 
exclusivo con su correspondiente octeto de la imagen. El resultado se pinta de 
nuevo sobre la pantalla. Al realizar un XOR de una imagen con otra ya 
existente en pantalla, el resultado viene a ser la composición de las dos. 

Si consulta PON-DEMO.C verá que los pixels LIGHTCYAN (1011) ma- 
nipulados en XOR con el fondo BLUE (0001) se convierten en LIGHT- 
GREEN (1010), mientras que la operación resultante de operar LIGHTRED 
en XOR con BLUE (0001) es LIGHTCYAN (1011), que resalta de forma 
clara sobre la imagen del fondo. 

Si esa misma imagen se manipula en XOR por segunda vez, se consigue 
que se vaya cancelando a sí misma bit a bit, restaurando el aspecto de la 
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pantalla anterior. Esta opción es particularmente útil en animación de imáge- 
nes, sobre todo cuando una determinada imagen necesita ser colocada sobre 
la pantalla y luego borrada de nuevo para restituir el formato original de 
aquélla. Esta opción se utiliza claramente en la demostración ANIMADO1.C 
(consulte el capítulo 10). 


OR_PUT También podría haberse denominado "o bien...o bien", ya que 
cada uno de los octetos de la imagen opera en OR lógica con los pixels de 
pantalla correspondientes, dejando el resultado escrito sobre ésta. Es necesario 
recordar que cada uno de los pixels sufre la OR lógica con los bits de la 
imagen, por lo que el color resultante es una mezcla del color de fondo con 
el de la imagen. 

En PON-DEMO.C los pixels LIGHTCYAN (1011) que operaron en OR 
lógica con BLUE (0001) permanecieron con el valor LIGHTCYAN (1011), 
mientras que aquellos con atributo LIGHTRED (1100) operados en OR lógica 
con el atributo de fondo BLUE (0001) se transformaron en LIGHTMAGEN- 
TA (1101). 


AND_PUT En este caso, sólo los bits activos, tanto en los pixels de la 
pantalla como en los octetos de la imagen son los que permanecen activos en 
el resultado. Como puede comprobarse, el blanqueo del fondo en la imagen 
Destello provoca la limpieza tanto del contorno del Recuadro como del color 
de relleno, excepto en el área en que la imagen Destello se solapa con el 
Recuadro. 

Además la operación AND lógica entre los atributos LIGHTRED (1100) y 
LIGHTBLUE (1001) genera el atributo (1000). 


NOT_PUT Opera de la misma forma que COPY_PUT, con la diferencia 
de que la imagen se invierte a nivel de bits (todos los pixels de la imagen con 
el atributo BLACK (0000) se convierten al atributo WHITE (1111), y así 
sucesivamente. La imagen de fondo se reimprime y se pierde. 

Consulte imagesize y getimage. . 


4% PON-DEMO.C Demostración de las opciones 6 
"bs de la función putimage() $ 


Hifdef _ TINY 

tterror La demostración no funcionó cuando se compiló en 
el modelo TINY. 

ttendif 
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Htinclude <conio.h> 
include <stdio.h> 
finclude <stdlib.h> 
Htinclude <stdarg.h> 
tinclude <graphics.h> 


int ControladorGrafico; /* tarjeta gr: a 
int ModoGrafico; /* valor del modo grá o */ 
int MaxColores; /* número de colores disponibles */ 


int CodigoError = 0; /* da cuenta de cualquier error 


en gráficos */ 


void *Destello, *Recuadro; /* punteros a imagen */ 


void *Guardalmagen( int izquierda, int arriba, 


J 


int derecha, int abajo ) 


void *Imagen;/ /* puntero local a Imagen */ 


Imagen = malloc( imagesize( izquierda, arriba, derecha, 
abajo ) ); 
getimage( izquierda, arriba, derecha, abajo, Imagen ); 
/* guarda la Imagen */ 
putimage( izquierda, arriba, imagen, XOR_PUT ); 
/* borra la Imag 
return( imagen ); /* devuelve el punte 


em 


void CreaImagenes () 


1 


int PuntosDestello[] = 
(£ 100,100, 110,120, 100,130, 120,125, 140,140, 
130,120, 140,110, 120,115, 100,100 ); 
int PuntosRecuadro[] = 
(Í 100,100, 100,140, 140,140, 140,100, 100,100 ); 


setcolor( LIGHTRED ); 
setfillstyle( LINE_FILL, LIGHTCYAN ); 
fillpoly( sizeof( PuntosDestello ) / 

(2 * sizeof( int ) ), PuntosDestello ); 
Destello = GuardalImagen( 100, 100, 140, 140 ); 


setcolor( LIGHTGREEN ); 
setfillstyle( SOLID _FILL, LIGHTBLUE ); 
fillpoly( sizeof( PuntosRecuadro ) / 

(2 * sizeof( int ) ), PuntosRecuadro ); 
Recuadro = Guardalmagen( 100, 100, 140, 140 ); 
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setcolor( WHITE ); 


putimage( 
outtextxy ( 
putimage ( 
putimage( 
putimage ( 
outtextxy ( 
putimage( 
outtextxy( 
putimage ( 
putimage ( 
putimage ( 


Putimage ( 
outtextxy ( 
putimage ( 
Pputimage ( 
putimage ( 
outtextxy( 


putimage ( 
outtextxy( 
putimage ( 
putimage ( 
putimage ( 
putimage ( 
outtextxy ( 
outtextxy( 
outtextxy( 


Putimage ( 
outtextxy( 
Putimage ( 
Putimage ( 
putimage ( 
outtextxy( 


Pputimage ( 
outtextxy ( 
putimage ( 
Putimage ( 
Putimage( 
outtextxy( 


10, 
60, 
80, 
200, 
200, 
130, 
10, 
60, 
80, 
200, 
200, 


10, 
60, 
80, 
200, 
200, 
130, 


310, 
360, 
380, 
500, 
500, 
500, 
430, 
430, 
430, 


310, 
360, 
380, 
500, 
500, 
430, 


310, 
360, 
380, 
500, 
500, 
430, 


10, 
25, 
10, 
10, 
10, 
25, 
60, 
75, 
60, 
60, 
60, 


110, 
125, 
110, 
110, 
110, 
125, 


10, 
25, 
10, 
10, 
10, 
10, 
15, 
25, 
00 


60, 
75, 
60, 
60, 
60, 
75, 


110, 
125, 
110, 
110, 
110, 
125, 


Destello, 

nm 
Recuadro, 
Recuadro, 
Destello, 


Destello, 

nm” 
Recuadro, 
Recuadro, 
Destello, 


Destello, 

"0" 
Recuadro, 
Recuadro, 
Destello, 


Destello, 

nn 
Recuaáro, 
Recuadro, 
Destello, 
Destello, 


Destello, 

.. 
Recuadro, 
Recuadro, 
Destello, 


Destello, 

"o. 
Recuadro, 
Recuadro, 
Destello, 


COPY_PUT 


COPY PUT 
COPY PUT 
COPY_PUT 
"COPY_PUT" 
COPY_PUT 


COPY _PUT 
COPY PUT 
AND_PUT 


COPY_PUT 


COPY_PUT 
COPY_PUT 
NOT_PUT 

" NOT_PUT" 


COPY_PUT 


COPY_PUT 
COPY_PUT 
OR_PUT 
XOR_PUT 
" OR_PUT " 
. and " 
" XOR_PUT" 


COPY_PUT 


CoPY_PUT 
COPY_PUT 
OR_PUT 
" OR_PUT " 


COPY_PUT 


COPY_PUT 
COPY_PUT 
XOR_PUT 

" XOR_PUT" 
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void Iniciar() /* inicializa el s 


ema de gráficos 
y da cuenta de cualquier error */ 
ControladorGrafico = DETECT; /* solicita autodetecc 
initgraph( £ControladorGrafico, £ModoGrafico, 
"C¿NYTCANMBGI" );5 
CodigoError = graphresult (); 7% 


ión */ 


ultado de la prueba 

de inicializaci 
if ( CodigoError != gr0k ) /* si hay error al inici 
1 


printf (" Error en el Sistema de Gráficos: %sin", 
grapherrormsg( CodigoError ) ); 


exit( 1 ); 
3 
MaxColores = getmaxcolor() + 1; qe ngo máximo de 
isponible */ 
) 
void Pausa() 
t 
if( kbhit() ) getch(); 
getch(); 
) 
main() 
t 
Iniciar(); /* pone modo gráfico */ 
CreaImagenes(); /* crea y guarda las imágenes */ 
Pausa(); 
closegraph(); /* repone el modo texto */ 


Funciones gráficas 
para el manejo de textos 


Una vez decantados por el modo gráfico, las clásicas pantallas de texto ya no 
tienen ninguna validez y, tanto los rótulos, como la información textual, sólo 
podrán representarse a través de terminales gráficos. 

En modo gráfico, sin embargo, las pantallas de texto gráfico operan de una 
forma absolutamente diferente a las pantallas de texto convencionales. Por 
ejemplo, las posiciones de los caracteres en las pantallas clásicas (coordena- 
das de fila y columna) ya no son aplicables; ahora, los caracteres pueden 
aparecer en cualquier posición de la pantalla. Harán falta nuevas funciones 
para marcar con exactitud las posiciones de visualización de los textos gráfi- 
cos y para escribirlos sobre la pantalla. Entre ellas se incluyen las funciones 
outtext y Outtextxy. 

Dada la gran variedad de tamaños de caracteres, el entorno gráfico ofrece 
diferentes justificaciones, tanto horizontales como verticales. Además, puesto 
que el texto puede mostrarse tanto en sentido vertical como horizontal, habrá 
una gran confusión en los desplazamientos de las líneas y en las posiciones 
de visualización. 

Para poder seguir la pista a las posiciones de pantalla, a los tamaños de las 
letras y a las anchuras de las cadenas existen determinadas funciones entre las 
que se incluyen gettextsettings, textheight y textwidth. 

Las funciones de texto convencionales permiten visualizar variables de 
programas, datos de intercambio y constantes de cadena. Estas posibilidades 
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se discutirán en el Capítulo 8 junto a ejemplos de funciones avanzadas de 
tratamiento de textos gráficos, como lo son borracadena, gprintf y gprintc. 
La función installuserfont de Turbo C++ (y Turbo Pascal) permite la in- 
corporación de nuevos juegos de letras gráficas (fuentes), incluso si han sido 
creados por el usuario. Consulte el capítulo 15, El editor de fuentes Turbo. 


Funciones de tratamiento de textos 


La primera tarea consiste en escribir sobre la pantalla en modo gráfico: 


outtext 


Esta función muestra una cadena en la ventana gráfica, comenzando en la 
posición PV. 


Ejemplo: 


ttinclude <graphics.h> 
outtext ("Cadena para la ventana gráfica"); 


Para ello se utilizan los valores vigentes de la fuente gráfica, el color de 
dibujo, el tamaño de caracteres, la orientación del texto (dirección) y la justi- 
ficación. 

Si la justificación se define a través de LEFT_TEXT y la dirección a través 
de HORIZ_DIR (valores por omisión para la visualización de texto gráfico), 
entonces la coordenada x de la posición PV se adelanta en textwidth (cadena- 
texto). En cualquier caso la posición PV no se modifica. 

Consulte gettextsettings, gprintf, gprintc, outtextxy, setcolor, settextset- 
tings, textheight y textwidth. 


outtextxy 


Esta función muestra en la ventana gráfica una cadena que comienza en las 
coordenadas (x,y) de aquélla. 


Ejemplo: 


tinclude <graphics.h> 
int x, y; á 
outtextxy (x, y, "Cadena para la ventana gráfica"); 


Para ello se utilizan los valores vigentes de la fuente, el color de dibujo, el 
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tamaño de caracteres, la orientación de texto (dirección) y la justificación. Las 
coordenadas de la posición vigente (PV) no se ven modificadas. 

Consulte gettextsettings, gprintf, gprintc, outtext, setcolor, settextsettings, 
textheight y textwidth. 

Las funciones outtext y outtextxy proporcionan el tratamiento básico de 
E/S de texto en modo gráfico. Las funciones gprintf y gprinte mostrarán más 
adelante sus propiedades para la formatización y la E/S de textos gráficos, 


Estilos de texto gráfico, justificación y dimensionamiento 


Mientras los modos de texto convencionales ofrecen la visualización equiva- 
lente a la de una página escrita a máquina, los modos de texto gráfico acercan 
al usuario a la perspectiva dada por una máquina de composición. Esta mejora 
permite cambiar las fuentes, seleccionar diferentes justificaciones verticales y 
horizontales, cambiar los tamaños de los caracteres, incluso representar los 
textos verticalmente, en vez da hacerlo horizontalmente. 


settextstyle 
Esta función selecciona la fuente gráfica, la dirección de visualización del 
texto (horizontal o vertical) y el tamaño de los caracteres. 


Ejemplo: 


tiinclude <graphics.h> 
int fuente, direccion, dimcaracter; 
settextstyle (fuente, direccion, dimcaracter); 


La Tabla 6-1 muestra los nombres estándar de las fuentes (font_names), de 
la forma en que aparecen en GRAPHICS.H. 


Tabla 6-1 Fuentes de textos gráficos 


Nombre! Valor Descripción 

DEFAULT_FONT 0 Fuente de matriz de 8x8 bits. 
TRIPLEX_FONT 1 Fuente triplex segmentada (stroked). 
SMALL_FONT 2 Fuente pequeña segmentada. 
SANS_SERIF_FONT 3 Fuente sans serif segmentada. 
GOTHIC_FONT 4 Fuente gótica segmentada 


1 Más fuentes en el capítulo 15, El editor de fuentes Turbo. 
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La fuente por omisión, DEFAULT_FONT, ha sido agregada al sistema 
gráfico. Del resto de fuentes, sólo una permanece en memoria en cualquier 
instante. 

Los archivos .CHR de la fuente seleccionada deben ubicarse en el directo- 
rio o subdirectorio marcado por initgraph como caminocontrolador, antes de 
que aquél pueda cargarse. 

Junto al programa del usuario pueden enlazarse diversas fuentes, utilizando 
para ello la rutina BGIOBJ (consulte Enlace de Controladores y Fuentes 
Gráficas en el capítulo 7). En este caso, la función de registerbgifont permite 
seleccionar el juego adecuado. 

Por omisión, la dirección del texto gráfico es horizontal, pero puede cam- 
biarse a vertical (rotando en 90? en sentido contrario a las agujas del reloj). 
Las dos direcciones del texto gráfico se definen en GRAPHICS.H, como 
puede verse en la Tabla 6-2. 


Tabla 6-2 Direcciones del texto gráfico 


Nombre Valor Descripción 


HORIZ_DIR 0 De izquierda a derecha (por omisión). 
VERT_DIR 1 De abajo arriba. 


Si elige la orientación vertical, la cadena de texto comienza en la parte 
inferior y va subiendo. No existe ninguna función que permita visualizar una 
cadena en el sentido opuesto al indicado, ni invertirla (desde la parte superior 
hacia abajo, yendo de derecha a izquierda), pero es posible desarrollarlas 
utilizando técnicas de rotación de imágenes, como se verá en el capítulo 12. 
ara fuentes de matrices de bits, la variable dimcaracter puede valer 0.10. 
Los valores cero y uno muestran rectángulos de 8x8 pixels, el valor dos 
muestra un rectángulo de 16x16 pixels, y así sucesivamente, hasta 10 veces 
el tamaño normal. Para las fuentes segmentadas, dimcaracter=0 amplía el 
tamaño de la fuente en el factor 4 o bien en el factor de tamaño definido por 
el usuario y activado por la función setusercharsize. El valor máximo de 
dimcaracter es 10. En caso de pasar valores no permitidos a la función set- 
textjustify, la función graphresult devuelve el valor -11 (error general) y los 
parámetros vigentes del entorno de texto gráfico no sufren ninguna variación. 


Consulte settextjustify, textheight y textwidth, 


installuserfont 


Esta función (Turbo C versión 2.0) carga una fuente de .CHR (segmentada) 
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no agregada al sistema .BGI, y devuelve un número de identificación de la 
fuente (que fue pasado a settextstyle para seleccionar ésta). 


Ejemplo: 


Htinclude <graphics.h> 
int FUENTE_USUARIO = 0; 
FUENTE_USUARIO = 
installuserfont ("MFuenCamillFuenNom.CHR"); 


Hasta 20 fuentes externas podrán ser instaladas en cualquier instante. Si la 
tabla interna de fuente se llena, el valor devuelto será -11. 
settextjustify 


Esta función selecciona la justificación horizontal y vertical del texto, 
Ejemplo: 


Htinclude <graphics.h> 
int justificahoriz, justificavert; 
settextjustify (justificahoriz, justificavert); 


Los valores por omisión son LEFT_TEXT, TOP_TEXT (0,2). Los térmi- 
nos de justificación text_just se definen en GRAPHICS.H, de la misma forma 
que en la Tabla 6-3. 


. Tabla 6-3 Términos de justificación del texto 
Justificación horizontal Justificación vertical 
Nombre Valor Nombre Valor 
LEFT TEXT 0 BOTTOM_TEXT 0 
CENTER_TEXT 1 CENTER_TEXT 1 
RIGHT_TEXT 2 TOP_TEXT 2 


En la justificación horizontal, LEFT_TEXT muestra la cadena de texto a 
la derecha, comenzando en PV; CENTER_TEXT muestra la cadena de texto 
centrada en PV, y RIGHT_TEXT muestra la cadena de texto a la izquierda 
finalizada en PV. 

En la justificación vertical, BOTTON_TEXT alinea la parte inferior de la 
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Figura 6-1 Justificación del texto 


BottomText 
Centertext 
TopText 
eftText 


CenterText 
RightText 


Left 


d 


Se permiten di is opciones de alineamiento de texto. Observe que la línea CENTER_TEXT 
(orientación vertical a la izquierda) está centrada conforme a la altura total de la fuente. Esto 
incluye el espacio de cabecera en blanco sobre los caracteres. Todos los alineamientos inclu- 
yen el espacio de cabecera así como un breve margen a continuación del final de una cadena 
(o un carácter en blanco). 


cadena de caracteres con PV; CENTER_TEXT alinea el centro de la cadena 
en PV y TOP_TEXT alinea la parte superior de la cadena con PV. 

Si la justificación está activada con el valor LEFT_TEXT, y dirección 
HORIZ_DIR, la coordenada x de la posición vigente avanzará, tras una lla- 
mada a outtext o gprintf, en textwidth (cadena). La figura 6-1 muestra varias 
opciones de alineamiento de texto. 

Consulte settextstyle. 


setusercharsize 


Esta función origina la ampliación de los caracteres definidos por el usuario 
(sólo para fuentes segmentadas). Esto no funciona con los caracteres DE- 
FAULT_FONT. Los parámetros de ajuste de la fuente sólo estarán activos si 
previamente se ha ejecutado settextstyle con dimcaracter = 0. 
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Ejemplo: 


ttinclude <graphics.h> 
int multx, divx, multy, divy; 
setusercharsize (multx, divx, multy, divy); 


Cuando se llama a setusercharsize para seleccionar la escala de caracteres 
a medida, la anchura resultante se define como multx/divx y la altura resultan- 
te como multy/divy. 

Para crear una pantalla con caracteres a escala de tres unidades de altura 
(24 pixels) y el doble de anchura (48 pixels), deberá llamarse a la función 
setusercharsize con los valores siguientes: 


divx = 1; 
multy = 3; divy = 1; 
setusercharsize (multx, divx, multy, divy); 


Para caracteres altos y estrechos sería: 


multx = 3; divx = 2; 
multy = 6; divy = 1; 


que producirá caracteres de 12 pixels de anchura y 48 pixels de altura. 
Consulte gettextsettings. 


Información de entorno de los textos 


Dada la gran variedad de elección de fuentes, las distintas direcciones del 
texto y la justificación vertical y horizontal, es útil conocer los parámetros 
vigentes, así como la altura y la anchura de una cadena de texto por medio de 
aquellos. Existen tres funciones para todo esto: gettextsettings, textheight y 
textwidth. 


gettextsettings 


Esta función llena la estructura infotexto con los valores vigentes de la fuente, 
la dirección, el tamaño y la justificación vertical y horizontal. 
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Ejemplo: 

tinclude <graphics.h> 

struct textsettingstype infotexto; 
gettextsettings (Sinfotexto); 


La estructura textsettingstype está definida en GRAPHICS.H, de la forma: 


struct textsettingstype 
t 


int font; int direction; 
int charsize; 
int horiz; int vert; 


Consulte outtext, textheight, textmidth y settextstyle. 


textheight y textwidth . 


La función textheight devuelve la altura de una cadena en unidades pixel, 
utilizando para ello los valores vigentes del tamaño de la fuente, de los facto- 
res de escala y de la dirección del texto. Puede que ésta coincida con la altura 
de un carácter o con la de una cadena entera. Cuando se utiliza un único 
carácter, se suele tomar en mayúsculas, aunque la información devuelta de- 
penda del tamaño calculado más que del tamaño de la pantalla actual (por 
ejemplo, una "u" devolverá el mismo tamaño que una "U”). 


Ejemplo: 


tinclude <graphics.h> 

int alturacaracter, anchuracaracter; 
alturacaracter = textheight ("Cadena de Texto"); 
anchuracaracter = textwidth ("Cadena de Texto"); 


La función textwidth devuelve la anchura de una cadena en unidades pixel, 
utilizando para ello los valores vigentes del tamaño de la fuente, de los facto- 
res de escala y de la dirección del texto. Esta anchura puede ser la de un 
carácter elemental o, más frecuentemente, la anchura de una cadena completa. 


La biblioteca gráfica 


Turbo C++ proporciona una biblioteca de funciones gráficas (GRAPHICS.H) 
como suplemento a las bibliotecas de los modelos de memoria estándar, in- 
corporando bibliotecas que son específicas del modelo de memoria. Al utilizar 
el Entorno de Desarrollo Integrado de Turbo C (TC.EXE) se produce la carga 
automática del modelo de memoria adecuado, que coincide con el modelo de 
memoria seleccionado (consulte el menú que se abre bajo Options/Compi- 
ler/Model). 

La biblioteca gráfica, sin embargo, está separada y no queda incluida au- 
tomáticamente en tiempo de compilación. Por este motivo existen otras dos 
opciones de utilización de las funciones gráficas con Turbo C++: la utiliza- 
ción de los archivos .PRJ o la incorporación de GRAPHICS.LIB en una o más 
de las bibliotecas estándar. 

Recuerde que el archivo de cabecera para gráficos debe ser referido en 
cada uno de los códigos fuente antes de utilizar cualquier función gráfica. En 
ese caso, la línea fuente *include <graphics.h> debería aparecer en todos los 
módulos del código. Además, las funciones gráficas no funcionarán si se 
utiliza el modelo de memoria TINY, dada su limitación de memoria. Los 
modelos con más memoria dejan mayor cantidad de ésta para los programas 
del usuario, 


Gráficos con los archivos .PRJ 


El método más sencillo para incluir la biblioteca gráfica en tiempo de compi- 
lación, (utilizando TC.EXE, esto es, el Entorno de Desarrollo Integrado) con- 
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siste en utilizar un archivo .PRJ. Por ejemplo, en un programa llamado 
PROGNOMB.C podría crearse un archivo de proyecto, PROGNOMB.PRJ, 
que incluyera la línea : 


prognomb graphics.lib 


Para compilarse debería seleccionarse el elemento Proyecto del menú des- 
pleglable e introducir el nombre del proyecto PROGNOMB (la extensión .PRJ 
es opcional y se asume por omisión). A continuación debería seleccionarse 
Compile (ALT-C) para comenzar, 

La versión 2.0 de Turbo C introduce una nueva opción (Option/Lin- 
ker/Graphics Library) para proceder al enlace, con búsqueda automática de la 
biblioteca gráfica, sin necesidad de tener un archivo de proyecto. 

En caso de utilizar Turbo C++ en la versión de línea de órdenes 
(TCC.EXE), la biblioteca gráfica deberá referenciarse en el momento de eje- 
cutar dicha orden: 


tcc prognom graphics.lib 


Recuerde que, en caso de no hacer referencia a la biblioteca gráfica, el 
enlazador comenzará a lanzar mensajes de error a diestro y siniestro. 


Incorporación de GRAPHICS.LIB 
en las bibliotecas estándar 


Como alternativa al uso de los archivos .PRJ o a las llamadas a GRAP- 
HICS.LIB desde la línea de órdenes, Turbo C++ proporciona la opción que 
permite al enlazador buscar automáticamente la biblioteca gráfica. Para ello 
es necesario utilizar los parámetros del menú Options/Linker/Graphics. 

La biblioteca gráfica puede incorporarse a una o más bibliotecas estándar 
a través de TLIB.EXE, la biblioteca de códigos objeto Turbo. 

Para incorporar la biblioteca gráfica a un modelo específico de memoria, 
antes de ejecutar la orden 1lib cx +graphics.lib, debería comprobarse que los 
archivos Cx.LIB y GRAPHICS.LIB estuvieran en el mismo subdirectorio. El 
valor de cx identifica el modelo de memoria que se utiliza, 

Para incorporar la biblioteca gráfica a todas las bibliotecas de los modelos 
de memoria, debería crearse y ejecutarse el siguiente archivo .BAT: 


tlib cs +graphics.lib 
tlib cc +graphics.lib 
tlib cm +graphics.lib 
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tlib cl +graphics.lib 
tlib ch +graphics.lib 


La desventaja de incorporar la biblioteca gráfica es el aumento del tiempo 
de compilación de los programas que no contienen gráficos. Sin embargo, ésta 
es una cuestión menor que no genera inconvenientes. 

Siempre puede darse el caso de que Vd. quiera enlazar los controladores 
gráficos y las fuentes gráficas antes de incorporar la biblioteca gráfica. 


Enlace de controladores y fuentes gráficas 


Por omisión, Turbo C++ (y Turbo Pascal) utiliza controladores gráficos y 
fuentes (*.BGI y *.CHR, respectivamente) enlazados dinámicamente. El uso 
de controladores y fuentes externos ofrece dos ventajas: un tamaño limitado 
del programa compilado y flexibilidad para incorporar nuevos controladores 
y fuentes con posterioridad. Sin embargo, hay dos desventajas, que dependen 
de los archivos externos con los que se trabaja. 

Primera: si se utilizan controladores y fuentes externas, tanto el camino del 
directorio como la unidad donde se encuentran las rutinas externas, deberán 
ser especificadas por el programador en tiempo de compilación (consultar 
initgraph en el capítulo 1). En caso de cambiar el camino o el controlador, el 
programa deberá ser recompilado con la información actualizada. 

Segunda: mientras los archivos .BGI y .CHR se pueden distribuir en el 
interior del programa compilado, los archivos externos están sujetos a sucesos 
accidentales, como el borrado, indeseables a todas luces. 

Existe una alternativa: enlazar los controladores y las fuentes como parte 
de la biblioteca gráfica; de esta forma no habrá referencias a archivos externos 
y tanto controladores como fuentes serán parte del código .EXE producido por 
el compilador C. Llegados a este punto, la biblioteca estándar puede incorpo- 
rarse a las bibliotecas gráficas, utilizando para ello el archivo .PRJ; también 
puede ser enlazada por medio de una orden en la línea de órdenes, como se 
ha visto previamente. 

Sin embargo, para enlazar archivos de controladores y de fuentes es nece- 
sario convertir los archivos .BGl y .CHR en archivos .OBJ, por medio de la 
rutina BGIOBJ. 

La rutina BGIOBJ se invoca de la forma: 


bgiobj <fuente> 


El resultado es un archivo objeto con el mismo nombre que el del fuente, 
pero con extensión .OBJ. Según lo anterior, CGA.BGI produce CGA.OBJ y 
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TRIP.CHR proporciona TRIP.OBJ. Tras la creación de los archivos .OBJ, se 
produce la llamada a TLIB: 


tlib graphics +cga +trip 


Esto incorpora el controlador CGA y la fuente TRIP a GRAPHICS.LIB. 
Observe que las extensiones .LIB y .OBJ se sobrentienden y no necesitan ser 
especificadas. 

También pueden utilizarse los archivos .BAT que se mencionan a conti- 
nuación: ADD_DRVR.BAT, para añadir controladores gráficos a GRAP- 
HICS.LIB: 


bgiobj cga 

bgiobj egavga 

bgiobj herc 

bgiobj att 

bgiobj pc3270 

bgiobj ibm8514 

tlib graphics +cga +egavga +herc +att +pc3270 +ibm8514 


ADD_FONT.BAT, para añadir fuentes gráficas a GRAPHICS.LIB: 


bgiobj trip 
bgiobj litt 
bgiobj sans 
bgiobj goth 
tlib graphics +trip +1itt +sans +goth 


Utilización de los controladores y fuentes enlazados 


Para utilizar controladores y fuentes después de enlazar la biblioteca gráfica, 
existe un requisito (innecesario al utilizar controladores y fuentes externas): 
los controladores y las fuentes deben estar presentes antes de llamar a init- 
graph. 

Algunas de estas funciones aparecen tanto en la versión near (próxima) 
como en la versión far (lejana) (como register... y registerfar...). Las funciones 
registerfar... y la opción /F proporcionan más memoria a los programas del 
usuario, si los controladores y las fuentes se presentan como direcciones de 
segmentos far. 
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registerbgidriver y registerfarbgidriver 


La función registerbgidriver se utiliza para dar de alta un controlador gráfico 
enlazado. 


Ejemplo: 


tinclude <graphics.h> 
if (registerbgidriver (<Nombre_Controlador>) < 0) 
exit (1); 


Si el controlador gráfico no está disponible, la función devuelve un código 
de retorno negativo. En caso contrario, la función devuelve el número interno 
del controlador. La Tabla 7-1 proporciona una información más detallada 
sobre los controladores gráficos. 


Tabla 7-1 Controladores gráficos 


Controlador normal Nombre Simbólico Far! Nombre Simbólico 
CGA.BGI CGA_driver_far CGA_driver 
EGAVGA.BGI EGAVGA_driver_far EGAVGA_ driver 
HERC.BGI Herc_driver_far Herc_driver 
ATT.BGI ATT_driver_far ATT_driver 
PC3270.BGI PC3270_driver_far PC3270_driver 
IBM8514.BGI 1BM8514_driver_far IBM8514_driver 


1 Consulte la siguiente sección: Errores del enlazador de controladores y fuentes, como explicación de 
los nombres simbólicos de los controladores registerfarbgidriver y _far. 


CONTROLA.C llamada a IncorporaControladores () */ 


include <graphics.h> 
void IncorporaControladores() 
t 


if (registerbgidriver (CGA driver) <0) 
if (registerbgidriver (EGAVGA driver) < 0 ) exit (1); 
if (registerbgidriver (Herc_driver) <0) 
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if (registerbgidriver (ATT_driver) <:0 1). extt 1): 
if (registerbgidriver (PC3270_driver) < 0 ) exit (1); 
if (registerbgidriver (IBM8514 driver)< 0 ) exit (1); 


) 

main () 

t 
IncorporaControladores (); 
Iniciar (); 
closegraph (); 

) 


Transportabilidad: PCs de IBM y compatibles, así como las correspondien- 
tes funciones existentes en Turbo Pascal. 


registerbgifont y registerfarbgifont 


La función registerbgifont permite dar de alta una fuente enlazada (la fuente 
es del tipo segmentado). 


Ejemplo: 


tinclude <graphics.h> 
if (registerbgifont (nombrefuente) < 0 ) exit (1); 


Si la fuente especificada no está presente, la función devuelve un código 
de retorno negativo; en caso contrario, la función devuelve el número asocia- 
do a la fuente registrada. 


La Tabla 7-2 muestra las fuentes gráficas. 


Tabla 7-2 Fuentes gráficas 


Fuente Nombre Simbólico Far! Nombre Simbólico 
TRIP.CHR triplex_font_far triplex_font 
LITT.CHR small_font_far small_font 
SANS.CHR sansserif_font_far sansserif_font 
GOTH.CHR gothic_font far gothic_font 


1 Consulte la siguiente sección: Errores del enlazador de controladores y fuentes, como explicación de 
los nombres simbólicos registerfarbgifont y _far. 
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15d FUENTES.C Llamar a IncorporaFuentes() */ 


tinclude <graphics.h> 


void IncorporaFuentes() 


1 
if ( registerbgifont( triplex_font ) <0) exit(1); 
if ( registerbgifont( small_font ) <0) exit(1); 
if ( registerbgifont( sansserif_font ) < 0) exit(1); 
if ( registerbgifont( gothic_font ) <0) exit(1); 
d 
main() 
t 
IncorporaFuentes(); 
Iniciar(); 
closegraph(); 
y 


Transportabilidad: PCs de IBM y compatibles. así como las correspondien- 
tes funciones existentes en Turbo Pascal. 


Errores del enlazador de controladores y fuentes 


Siempre es posible el surgimiento de errores de enlazado al utilizar controla- 
dores y fuentes gráficas enlazadas. A veces, surge el mensaje de error Seg- 
ment exceeds 64 Kb: este problema es muy común cuando se utilizan los 
modelos de memoria corto, mediano o compacto. 

Todos los archivos .OBJ creados por BGIOBJ utilizan el mismo segmento 
de memoria: _TEXT. En el momento en que el número de archivos enlazados 
genere un segmento de tamaño superior a los 64 Kb, tendrá lugar el anterior 
error. 

Cuando esto suceda, deberá utilizarse la opción /F para exigir a BGIOBJ 
la creación de nuevos segmentos de memoria de la forma FILENAME_TEXT, 
dejando libres los segmentos aportados por omisión para otras aplicaciones, 
Esto tiene dos efectos. 

Primero: Los nombres de los archivos .OBJ se amplían con una F, por lo 
que CGA.BGI generaría un CGAF.OBJ en vez de un CGA.OBJ. Las órdenes 
TLIB necesitarán una modificación similar. Nota: Los nombres de los archi- 
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vos fuente deberán tener una longitud de 7 caracteres o menos para permitir 
esta ampliación. 

Segundo: los nombres públicos llevarán el sufijo _far. Las funciones regis- 
terfarbgidriver y registerfarbgifont serán imprescindibles para la utilización de 
las rutinas IncorporaControladores e IncorporaFuentes. 


if( registerfarbgidriver(Herc_driver_far)<0 ) exit (1); 
if( registerfarbgifont (triplex_font_far) <0 ) exit (1); 


Tratamiento de la memoria gráfica a medida 


Es posible ajustar los procedimientos de tratamiento de memoria gráfica a la 
medida del usuario. Esto, sin embargo, no debería realizarse a la ligera. Las 
dos funciones que se muestran a continuación sirven para completar el entor- 
no gráfico. 


_graphfreemem 


Esta función suele ser llamada por closegraph para liberar la reserva de me- 
moria hecha para controladores, fuentes y memoria intermedia. Por omisión, 
_graphfreemem llama a la función estándar de liberación de memoria. Sin 
embargo, el tratamiento de memoria a medida permite definir una nueva 
_graphfreemem. La nueva función _graphfreemem debe declararse de la mis- 
ma manera que la función estándar. 


Ejemplo: 


tinclude <graphics.h> 

unsigned dimension; 

int *puntmemoria; 

_graphfreemem (£puntmemoria, dimension); 


Consulte también _graphgetmem. 


_graphgetmem 


Esta función suele ser llamada por initgraph para reservar memoria para los 
controladores gráficos, las fuentes gráficas y las áreas de memoria intermedia. 

Por omisión, _graphgetmem utiliza la función malloc para desencadenar la 
reserva de memoria. El tratamiento de memoria a medida permite la defini- 
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ción de una nueva función _graphgetmem, si el usuario lo desea. La nueva 
función _graphgetmem debe llevar el mismo tipo de declaración que la fun- 
ción estándar. 


Ejemplo: 


Htinclude <graphics.h> 
unsigned dimension; 
_graphgetmem (dimension); 


Consulte _graphfreemem. 


Combinación de textos 
y gráficos 


Los primeros diseños realizados con ayuda del computador no hacían distin- 
ción entre textos y gráficos. En la actualidad, los sistemas MS-DOS no per- 
miten una proyección directa de las fuentes de la ROM sobre las pantallas 
gráficas. Para superar esta limitación, tanto Turbo C++ como Turbo Pascal 
proporcionan un juego de caracteres gráficos con proyección a nivel de bit 
que permite sustituir el juego de caracteres de la ROM. Este juego incluye los 
caracteres dependientes del idioma, como el signo de la libra inglesa, el signo 
del yen japonés, las vocales acentuadas y los caracteres gráficos y matemáti- 
cos. 

Estos caracteres ASCII no han sido incluidos en las fuentes segmentadas. 
Cualquier intento de representación de este tipo de caracteres por medio de 
fuentes segmentadas suele ser, a menudo, infructuoso. Las versiones más 
avanzadas y las fuentes gráficas distribuidas junto al Editor de Fuentes Turbo 
(consulte el capítulo 15 para ver más detalles) incluyen juegos de caracteres 
equivalentes al ASCII extendido. Estas fuentes gráficas no son solamente 
sustitutos de los caracteres de la ROM. Las pantallas de textos pueden llegar 
a ser más elaboradas en los modos gráficos. 

Se suministran cuatro modelos segmentados figurativos (Gothic, Sans Se- 
rif, Triplex (Roman), y Small). Las posiciones de los caracteres de una cadena 
pueden ajustarse a nivel de pixel, en lugar de a nivel de carácter. Tanto el 
modelo de representación por omisión como los segmentados o figurativos 
pueden ampliarse hasta 10 veces su tamaño normal; las áreas de repre- 
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sentación segmentada pueden hacerse más altas o más anchas; las cadenas 
pueden nivelarse por la izquierda, por el centro o por a la derecha y mostrarse 
vertical u horizontalmente. 

Mientras la fuente por omisión tiene una anchura predefinida (todos los 
caracteres tienen la misma anchura básica). las fuentes segmentadas tienen un 
tamaño proporcional (esto es, una "W" es proporcionalmente más ancha que 
una "y"). La ubicación de los caracteres y el espaciamiento de las cadenas 
reflejan estas propiedades, proporcionando una mejor presentación que el es- 
tilo de texto mecanografiado. 

Existen limitaciones. La dos principales funciones de comunicación con el 
exterior, outtext y outtextxy, escriben una cadena sobre la pantalla (outtext 
utiliza la posición PV por omisión y outtextxy admite la posición de pantalla 
para la salida del texto). Tanto una como la otra admiten una sola cadena 
como argumento; no existe ninguna función para la impresión de variables o 
para la construcción de cadenas, como ocurre en los modos de texto, a través 
de printf y cprintf. Sin embargo es posible crear funciones análogas que nos 
sirvan para estos mismos propósitos. 


La función gprintf 


La función gprintf se ha utilizado en la mayoría de los programas de demos- 
tración. Una versión algo diferente a gprintf es la que aparece en el programa 
BGIDEMO, que se distribuye junto a la versión 1.5 de Turbo C. En ningún 
caso, la función gprintf se explica en detalle. 

La función gprintf se utiliza para imprimir cadenas sobre la pantalla. Para 
ello admite una serie variable de argumentos que, posteriormente, recombina 
hasta generar su resultado. A diferencia de printf, la función gprintf se invoca 
pasándole las coordenadas de salida en la pantalla; sólo es utilizable en modo 
gráfico y no funciona en modo texto. Dependiendo de la dirección del texto 
(horizontal o vertical). el valor de coordenada devuelto será posx o posy. 
Junto a éstas se devuelve el valor adecuado de desplazamiento para que la 
siguiente cadena impresa aparezca debidamente alineada, 

La primera cuestión consiste en la aceptación de una lista variable de 
argumentos que, posteriormente, serán utilizados para generar la cadena de 
salida. Esto se origina en la declaración de gprintf y de la variables locales: 


void gprintf (int *posx, int *posy, char *formato, 
t 
va_list argptr; 


COMBINACIÓN DE TEXTOS Y GRÁFICOS 89 


Los dos primeros argumentos que recibe gprintf son las coordenadas de 
salida a pantalla: posición según el eje x y posición según el eje y. El tercer 
argumento, char *formato es un puntero a una cadena, pudiendo ser éste un 
juego de caracteres alfanuméricos o a una cadena con formato. Una cadena 
con formato incluye las especificaciones del formato necesarias para su inter- 
pretación por los posteriores argumentos. 

El cierre del paréntesis finaliza la lista de argumentos e indica si puede 
incluirse o no un número indeterminado de argumentos. El número de argu- 
mentos que la función gprintf recibe en cada llamada viene dado por el nú- 
mero de especificaciones de formato incluidas en *formato. 

Si la lista actual de argumentos es superior al número de argumentos ne- 
cesarios para la especificación de formato, no aparecerá ningún mensaje de 
error y los especificados en exceso serán ignorados. 

Por otra parte, si el número de argumentos es inferior, el compilador man- 
dará el correspondiente mensaje de error. 

El tipo de datos va_list aparece en el archivo de cabecera stdarg.h y declara 
un array con la información necesaria para acceder a la lista de argumentos. 

El resto de variables locales son cadena[ 140], una variable de 140 carac- 
teres para alojar la cadena de salida: infotexto, que se utilizará para comprobar 
la dirección del texto y pos_adj, que adopta inicialmente el valor *posx. 


char cadena [140]; 
struct textsettingstype infotexto; 
int pos_adj = *posx; 


La función va_start inicia el array de punteros (argptr) a los argumentos 
con el valor de formato (la cadena con formato) que es el último parámetro 
fijo que se pasa a la función gprintf. La función va_start debe ser invocada 
antes de cualquier llamada a va_arg o a va_end. 


va_start (argptr, formato); 
wsprintf (cadena, formato, argptr); 


La función vsprintf se comporta de la misma forma que la ya familiar 
gprintf, con la diferencia de que la salida va redireccionada a una variable de 
cadena (cadena) terminada en un carácter nulo (ASCITZ) que utiliza el array 
va_arg y las instrucciones de formato contenidas en formato. Es responsabi- 
lidad del programador asegurar que la variable cadena sea lo suficientemente 

, grande como para alojar la cadena generada. Si no se pasa ningún argumento 
opcional a la función egprintf (excepto la propia cadena formato), entonces 
cadena es igual a formato. 

Una vez que la cadena de salida hacia pantalla ha sido generada sobre la 
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variable cadena, gettextsettings proporciona la justificación del texto y las 
instrucciones de dirección. 


gettextsettings (sinfotexto); 


A continuación, outtextxy escribe cadena en la pantalla en modo gráfico, 
utilizando pos_adj y *posx para calcular la posición de salida de la cadena. 
La cadena gráfica se representa con los valores vigentes de estilo de texto, 
fuente, color de dibujo y justificación de texto. 


outtextxy (pos_adj, *posy, cadena); 
switch (infotexto.direction) 
t 
case HORIZ_DIR: *posy += textheight (cadena) + 2; 
break; 


case VERT_DIR: *posx += textheight (cadena) + 2; 
Y; 


Una vez finalizada la salida por pantalla, infotexto.direction se consulta de 
nuevo para decidir si debe haber actualización de las coordenadas x e y, y así 
estar preparado para la siguiente impresión. En la salida los textos gráficos, 
la inclusión del carácter V: al final de la cadena no tiene ningún efecto. En su 
lugar, gprintf proporciona automáticamente la función gráfica análoga de salto 
de línea, actualizando las coordenadas de posición según los ejes x e y. 


va_end (argptr); 
J 


Por último, se desencadena la llamada a va_end para cerrar el puntero a la 
lista de argumentos. Este es el cierre básico que sigue a cualquier llamada a 
la función va_start. Si este cierre se produce de forma errónea, el comporta- 
miento de las operaciones posteriores no queda definido. 


La función gprinte 


La función gprintc opera de forma similar a la función gprintf pero con una 
diferencia importante. Cuando en modo texto se escribe una cadena sobre la 
pantalla, cualquier texto que se encuentre en la misma posición de salida 
queda sobreescrito. En los modos gráficos esto no es cierto; al utilizar gprintf, 
el texto de salida se escribe sobre la imagen existente en ese área de la 
pantalla. Los únicos pixels que se escriben son aquellos que definen la propia 
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cadena de caracteres: los pixels de fondo no sufren modificación alguna. De- 
pendiendo de la imagen de la pantalla, la salida puede resultar ilegible. Esto 
puede ser cierto cuando se escribe una cadena gráfica sobre otra ya existente 
(también gráfica). 

Para corregir este problema sin borrar ni regenerar la pantalla completa, 
gprinte proporciona e incluye una llamada a la función borracadena, 


void gprintc (int *posx, int *posy, char *formato, ...) 
t 


gettextsettings (£infotexto); 
borracadena (*posx, *posy, cadena); 
outtextxy (pos_adj, *posy, cadena); 


Dado que la función llama a borracadena con la información posicional y 
una copia de la cadena de salida formatizada, se puede decir que gprintc opera 
de la misma manera que gprintf. 


La función gprintxy 


Tanto la función gprintf como gprintc necesitan recibir las coordenadas x e y 
en forma de punteros a variables, de forma que toda modificación de aquéllas 
pueda conocerse en el programa y así poder facilitar la impresión de la si- 
guiente cadena. Esto no siempre es conveniente, por lo que la función 
gprintxy también está incluida en GPRINT.L 

La función gprintxy difiere en la forma en que acepta las coordenadas de 
pantalla, ya que las recibe como argumentos por valor; con respecto a lo 
demás, esta función actúa de la misma forma que gprintc. Por lo tanto, 
gprintxy puede ser invocada de la forma: 


gprintxy (10, 10, 
"Algo para imprimir con un número %d", numero); 


mientras que la llamada a gprintc necesitaría: 
int x = 10, y = 10; 


gprintc (8€Xx, £y, 
"Algo para imprimir con un número %d", numero); 
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En muchas aplicaciones, esta diferencia no tiene importancia. En estos 
casos, tales como la visualización rápida de líneas gráficas en procesos de 
depuración, la función gprintxy es de gran importancia. 


La función borracadena 


La función borracadena permite borrar una determinada región de la pantalla 
antes de escribir una cadena sobre ella. Esto implica la eliminación del bloque 
de fondo gráfico que interfiere con la imagen de la cadena. Esta función 
también puede utilizarse para borrar una cadena o porción de ésta, si es nece- 
sario. 

La función borracadena se llama desde gprintc con los valores de coorde- 
nadas x e y, que se utilizarán para colocar la cadena de salida en la pantalla, 


Ejemplo: 
void borracadena (int posx, int posy, char *cadena) 


Se puede acceder a la estructura infotexto por medio de la función gprintc, 
pero no por medio de borracadena, al menos directamente. En lugar de pasar 
los datos a borracadena durante la llamada, se procede a la carga de una 
estructura de información local, con los parámetros de justificación y direc- 
ción de salida del texto. 


struct textsettingstype infotexto; 
int xdim, ydim; 

void *imagentexto; 
gettextsettings (S£infotexto); 


Las dimensiones x e y de la cadena de salida se asignarán a las variables 
adecuadas, en función de la dirección de salida del texto en la pantalla. La 
variable posx, en el caso de salida horizontal, debe decrementarse para pro- 
porcionar un desplazamiento de un pixel en el área de borrado. En el caso 
vertical, la variable posy debe incrementarse por el mismo motivo. 


switch (infotexto.direction) 
t 
case HORIZ_DIR: xdim = textwiáth (cadena); 
ydim = textheight (cadena); 
Dosx- -; break; 
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case VERT_DIR: ydim = textwidth (cadena); 
xdim = textheight (cadena); 
DOsy++; 


En los siguientes pasos, la variable posx se ajusta en función del valor de 
justificación horizontal. 
switch (infotexto.horiz) 
case LEFT_TEXT: break; 


case CENTER_TEXT: posx -= xdim / 2; break; 
case RIGHT_TEXT: posx -= xdim; 


La variable posy se ajusta en función del parámetro de justificación 
vertical. 


switch (infotexto.vert) 


£ 
case BOTTOM_TEXT: posy -= ydim; break; 
case CENTER_TEXT; posy -= ydim / 2; break; 
case TOP_TEXT: ; 


Antes de intentar ningún borrado del área de pantalla, son necesarias dos 
comprobaciones para asegurarnos de que posx y posy caen dentro del área 
válida de pantalla. Si las coordenadas posx y posy caen fuera del área de 
pantalla, no se borrará ninguno de los objetos de ésta. Esto se debe a que 
cualquier llamada a las funciones getimage y putimage hecha con posteriori- 
dad intentaría utilizar unas coordenadas que en realidad no existen en la me- 
moria del vídeo. 

Si fuera necesario, posx y posy podrían ajustarse de forma que cayeran 
dentro de los límites de la pantalla. Al mismo tiempo, podrían modificarse los 
desplazamientos xdim e ydim para realizar las compensaciones necesarias. 


while (posx < 0) (í posx++; xdim- -;) 
while (posy < 0) ( posy++; ydim- -;) 


Ha llegado el momento de borrar un bloque de pantalla. El primer paso 
consiste en hacer una reserva de memoria para imagentexto de acuerdo con el 
área de pantalla que se vaya a borrar. La función imagesize utiliza las varia- 
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bles posx, posy, xdim e ydim para devolver un entero sin signo donde se indica 
el número de octetos que se necesitan para la imagen que se ha seleccionado, 


imagentexto = far malloc ( 
imagesize (posx, posy, xdim, ydim)); 


A continuación se llama a getimage para almacenar la imagen del área de 
la pantalla en imagentexto; luego, putimage devuelve la imagen, utilizando la 
opción XOR_PUT para borrarla. Esto deja una ventana en blanco en el área 
deseada, 


getimage (posx, posy, posx + xdim, posy + ydim, 
imagentexto); 
putimage (posx, posy, imagentexto, XOR_PUT); 


Por último, la función free permite liberar el área de memoria reservada 
para imagentexto. El puntero imagentexto no puede ser direccionado fuera de 
la función borracadena. La memoria que ha sido reservada localmente perma- 
nece así hasta ser liberada de forma explícita. Su liberación deberá producirse 
mientras el puntero imagentexto esté activo y disponible, antes de abandonar 
borracadena. 


free (imagentexto); 


Al llamar de nuevo a borracadena se desencadena la reserva de memoria 
para un nuevo bloque y la asignación de un puntero imagentexto. Si la reserva 
de memoria se produjera de forma reiterada sin ninguna liberación previa, la 
memoria del sistema podría saturarse, produciéndose resultados erróneos en 
posteriores llamadas. 


La función borrarbloque 


El área de pantalla podría haber sido borrada sin más que reescribir los pixels 
individuales, utilizando para ello el color de fondo como alternativa a las 
funciones de imagen. 


void borrarbloque (int izquierda, int arriba, 
int derecha, int abajo) 


int i, j, k = getbkcolor(); 
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for ( i=izquierda; i<=derecha; i++) 
for (j=arriba; j<=abajo; j++) 
putpixel (i, j, k); 


Esta segunda opción salva una pequeña porción de memoria previamente 
reservada por la función borracadena. La desventaja es que esta segunda op- 
ción es más lenta en la ejecución que la derivada del uso de las funciones 
getimage y putimage. 


Aplicaciones alternativas 


Anteriormente se ha dicho que la función borracadena también puede ser 
utilizada para borrar una cadena o porción de ella, Esto sólo es cierto a 
medias. La función puede utilizarse para borrar cualquier cadena, sin embar- 
go, el borrado de una porción de cadena es algo menos práctico, ya que 
borracadena no ha sido diseñada de forma explícita para ello. 

Ambas operaciones pueden llevarse a efecto, aunque hay un par de requi- 
sitos previos que deben conocerse. Primero, el estilo del texto, las fuentes y 
la justificación deben ser los mismos que aquellos que utilizó la cadena al ser 
escrita en un principio. Segundo, el color inicial de dibujo es el que queda 
activo. Tercero, las coordenadas de pantalla en las que se imprimió la cadena 
original deben ser conocidas. Cuarto, la propia cadena debe ser conocida. Si 
alguno de los tres primeros puntos cambia, cualquier intento de borrado de la 
cadena o porción de ésta producirá resultados inesperados. 

En el modo gráfico, a diferencia del modo texto, no existe ningún método 
para leer una cadena desde la pantalla. 

La primera operación consiste en borrar una cadena previamente creada. 
Suponiendo que los valores de texto y color son los correctos y que las coor- 
denadas originales de aquélla en la pantalla son conocidas, esta operación 
resulta sencilla. Basta con llamar directamente a borracadena, utilizando como 
argumentos las coordenadas x.y de pantalla y la cadena. El área de pantalla 
donde deberá aparecer la cadena sufrirá un XOR consigo mismo, dejando 
aquélla blanqueada y lista para la reescritura. 

En el segundo caso, el borrado de una porción de cadena, el método más 
fácil consiste en borrar la totalidad de la cadena y luego reescribir la porción 
deseada. Cualquier otro esquema más elaborado que pudiera construirse para 
borrar determinados caracteres gráficos o subcadenas necesitaría bastante más 
código y tiempo de ejecución. 

El procesamiento de textos no es objetivo de este libro: el uso de fuentes 
gráficas y ventanas de texto es el método más sencillo para la programación 
de procesadores de textos o aplicaciones similares. Sin embargo, puede con- 
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siderarse necesario el uso de procedimientos de edición de textos junto a las 
aplicaciones gráficas. 


En ese caso, aquí se presentan unas pocas ideas: 


MH El mejor método consiste en tratar la imagen de la pantalla como una 


copia proyectada del actual array de texto que yace en la memoria, 
utilizando para ello algún esquema de indexación que permita identifi- 
car una correspondencia entre una línea de texto en memoria y su posi- 
ción gráfica en la pantalla. 


Ml En caso de utilizar la proyección de bits DEFAULT_FONT, el cálculo 


de la posición de cualquier carácter sobre la pantalla es muy fácil, ya 
que todos los caracteres tienen anchura fija. Si se utilizaran fuentes 
segmentadas, entonces la función textwidth proporcionaría el mejor 
método para decidir en qué punto debiera finalizar una determinada 
cadena. 


Ml Además, la pantalla no puede sufrir desplazamiento hacia arriba o hacia 


abajo de forma habitual. Aunque siempre es posible utilizar getimage y 
putimage para desplazar una porción importante de imagen de una pan- 
talla, podría pensarse que las necesidades de memoria fueran excesivas. 
En ese caso, existe un método más sencillo, como es desplazar una 
porción de pantalla más pequeña por medio de movimientos múltiples. 
Los desplazamientos laterales requieren de una técnica similar. 


[arc 

e Funciones de impresión de GPRINT.I mf 
¿hi? BORRACADENA: Usada para borrar una parte de la *./ 
/* pantalla antes de que una nueva cadena sea */ 
0 bioé escrita en ella o simplemente para borrar una +) 
1* cadena de la pantalla. 87 


essssecccceseososoo=c===*/ 


void borracadena( int posx, int posy, char *cadena ) 


1 


struct textsettingstype infotexto; 
int xdim, ydim; 
void *imagentexto; /* puntero a imagen */ 
gettextsettings( £infotexto ); 
/* obtiene los parámetros del modo texto actual */ 
switch ( infotexto.direction ) 
/* obtiene las dimens 


mes del área */ 
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case HORIZ_DIR : xdim = textwidth( cadena ); 
ydim = textheight( cadena ); 
Posx--; 
break; 
case VERT_DIR : ydim = textwidth( cadena ); 
xdim = textheight( cadena ); 
posy+ 


J 
switch ( infotexto.horiz ) /* ajusta la posición 
horizontal */ 


case LEFT_TEXT : break; 
case CENTER_TEXT : posx -= xdim / 2; break; 
case RIGHT_TEXT : posx -= xdim; 
Y 
switch ( infotexto.vert ) * ajusta la posición vertica 
iS 


case BOTTOM_TEXT 
case CENTER_TEXT 
case TOP_TEXT 


posy -= ydim; break; 
posy -= ydim / 2; break; 
; 


, 

while( posx < 0 ) (í posx++; xdim- 
se sale de la pan 

while( posy < 0 ) f posy++; ydim--; 


J /* si la posición 
la, se disminuye */ 
bd /* hasta un área 

válida */ 


imagentexto = malloc( imagesize( posx, posy, 
xdim, ydim )); 

getimage( posx, posy, posx+xdim, posy+ydim, 
imagentexto ); 

putimage( posx, posy, imagentexto, XOR_PUT ); 


free( imagentexto ); * libera EA 


GPRINTF: Se usa como PRINTF excepto que la salida 


se envía a la pantalla en modo gráfico en unas El 
coordenadas específicas. Dependiendo de la e, 
dirección del texto, se devuelven las coordenadas e 
posx o posy desplazadas de acuerdo con la altura *t 
del texto correspondiente a la fuente Li 


void gprint£( int *posx, int *posy, char *formato, ... ) 
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1 
va_list argptr; /* puntero a lista de argumentos */ 
char cadena [140]; /* memoria para construir 
la cadena */ 
struct ktextsettingstype infotexto; 
int pos_adj = *posx; /* posición por omisión 
para ajustar */ 
va_start( argptr, formato ); /* funciones 
lista */ 
veprintf( cadena , formato, argptr ); /* añade elementos 
a la memoria de la cadena */ 
gettextsettings( sinfotexto ); /* obtiene los parámetros 
actuales de la fuente de 
texto gráfico */ 
borracadena( *posx, *posy, cadena ); /* Primero borra el 
área */ 
outtextxy( pos_adj, *posy, cadena ); /* y luego es 
la cadena en modo grá 
switch ( infotexto.direction ) /* ajusta el desplazamiento 
para la próxima cadena */ 
t 
case HORIZ_DIR : *posy += textheight( cadena ) + 2; 
break; 
case VERT_DIR : *posx += textheight( cadena ) + 2; 
break; 
Y; 
va_ená( argptr ); /* cierra las funciones de lista */ 
) /* fin de GPRINTF */ 


/*  GPRINTC: Se usa como GPRINTF excepto que el área */ 
/* de la pantalla donde se escribirá el texto es e 
/* presentada con el color del fondo. EL 
/%a 


void gprintc( int *posx, int *posy, Char *formato, . 


1 


va_list argptr; /* puntero a la lista 
de argumentos */ 
char cadena [140]; /* memoria para construir 


la cadena */ 
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struct textsettingstype infotexto; /* información sobre 


el modo texto actual */ 


ión por omisión 
ra ajustar */ 


int pos_adj = *posx; pa 


va_start( argptr, formato ); /* inicia funcione: 
de lista */ 


vwsprintf( cadena , formato, argptr 


/* a 


lade elementos a la 
memoria de la cadena */ 


gettextsettings( £infotexto ); 
/* obti 


de la 


los parámetros 


uente de texto y 


borracadena( *posx, *posy, cadena ); /* primero borra 
rea */ 
outtextxy( pos_adj, *posy, cadena ); /* y luego escribe 
la cadena en modo gráfico */ 
switch ( infotexto.direction ) /* ajuste de compensa 
para la siguiente cadena */ 


case HORIZ_DIR : *posy += 
textheight( cadena ) + 2; break; 
case VERT_DIR : *posx += textheight( cadena ) + 2; 
d; 
va_ená( argptr ); f* cierra las funciones de li 7 
/ 1 de GPRINTC */ 


04 
E 


Se usa como GPRINTC excepto en que las 


coordenadas del área de pantalla son pasadas por */ 
valor en vez de utilizar la dirección de un puntero */ 


void gprintxy( int posx, int posy, char *formato, ... ) 


va_list argptr; 
char cadena [140]; 
struct textsettingstype infotexto; 


wva_start( argptr, formato ); 
vsprintf( cadena , formato, argptr ); 
gettextsettings( £infotexto ); 
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borracadena( posx, posy, cadena ); /* primero borra el 
área */ 
outtextxy( posx, posy, cadena ); 
va_end( argptr ); 
y /* fin de GPRINTXY */ 


/* fin de GPRINT.I */ 


Je PRN_DEMO.C le 
/* Muestra de la justificación horizontal y vertical */ 
/* de texto dede 


Hifdef _ TINY__ 
terror La demostración no funciona si se compila en el 


modelo TINY. 
ttendif 
include <dos.h> 
ttinclude <math.h> 
ttinclude <conio.h> 
ttinclude <stdio.h> 
Htinclude <stdlib.h> 
ttinclude <stdarg.h> 
ttinclude <graphics.h> 


int ControladorGrafico; /* tarjeta gráfica */ 

int ModoGrafico; /* valor del modo gráfico */ 

int MaxColores; /* número de colores disponible */ 

int CodigoError 0; /* da cuenta de cualquier error 
gráfico */ 

int MaxX, MaxY; 

Htinclude "gprint.i" /*suministra funciones adicionales 


para imprimir gráficos */ 
void Iniciar() 
t 
ControladorGrafico = DETECT; /* solicita autodetección */ 
initgraph( £ControladorGrafico, £ModoGrafico, 
"C: INTCANMBGI" )¿ 
CodigoError = graphresult (); /* resultado del test */ 
if ( CodigoError != grOk ) /* si hay error al 
inicializar */ 
t 
printf (" Error en el Sistema de Gráficos: %sin", 
grapherrormsg( CodigoError ) ); 
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) 


exit( 1); 
) 
MaxColores = getmaxcolor() + 1; /* lee el rango máximo 
de colores */ 
MaxX = getmaxx(); 
MaxY = getmaxy(); 


void LineaMensaje( char *msg ) 


1 


E 


int Altura; 

setcolor( getmaxcolor() ); /* Pone el color blanco */ 

settextstyle( DEFAULT_FONT, HORIZ_DIR, 1 ); 

settextjustify( CENTER_TEXT, TOP_TEXT ); 

Altura = textheight( "H" ); /* Determina la altura 
actual */ 

bar( 0, MaxY-(Altura+4), MaxX, MaxY ); 

rectangle( 0, MaxY-(Altura+4), MaxX, MaxY ); 

outtextxy( MaxX/2, MaxY-(Altura+2), msg ); 


void Pausa() 


t 


) 


static char msg[] = "Presione una tecla....."; 

LineaMensaje( msg ); /* Pone el mensaje al 7 
/* final de la pantalla */ 

while( kbhit() ) getch(); 

getch(); 


void MuestraAlineacion() 


t 


int PosX = 50, PosY = 100; 

setfillstyle( CLOSE_DOT_FILL, BLUE ); 

bar( 0, 0, MaxX, MaxY ); 

flooáfill( 10, 10, WHITE ); 

if( MaxColores > 4 ) setcolor( RED ); 
line( 0, PosY, getmaxx() / 3, PosY ); 
settextstyle( 3, VERT_DIR, 3 ); 

if( MaxColores > 4 ) setcolor( GREEN ); 
line( PosX, PosY - 100, PosX, PosY + 100 ); 
if( MaxColores > 4 ) setcolor( WHITE ); 
settextjustify( LEFT TEXT, CENTER_TEXT ); 
gprintxy( PosX, PosY, "Texto_Izquierda" ); 
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PosX = 100; 
if( MaxColores > 4 ) setcolor( GREEN ); 
line( PosX, PosY - 100, PosX, PosY + 100 ); 


if( MaxColores > 4 ) setcolor(WHITE); 
settextjustify( CENTER_TEXT, CENTER_TEXT ); 
gprintxy( PosX, PosY, "Texto Centrado" ); 


PosX = 150; 
if( MaxColores > 4 ) setcolor( GREEN ); 
line( PosX, PosY - 100, PosX, PosY + 100 ); 


if( MaxColores > 4 ) setcolor( WHITE ); 
settextjustify( RIGHT_TEXT, CENTER_TEXT ); 
gprintxy( PosX, PosY, "Texto _Derecha" ); 
if( MaxColores > 4 ) setcolor( GREEN ); 


PosX = 450; 
line( PosX, PosY - 100, PosX, PosY + 100 ); 
settextstyle( 3, HORIZ_DIR, 3 ); 


PosY = 30; 

if( MaxColores > 4 ) setcolor( RED ); 

line( PosX - 200, PosY, PosX + 200, PosY ); 
if( MaxColores > 4 ) setcolor( WHITE ); 
settextjustify( CENTER_TEXT, BOTTOM_TEXT ); 
gprintxy( PosX, PosY, "Texto_Inferior" ); 


PosY = 40; 

if( MaxColores > 4 ) setcolor( RED ); 

line( PosX - 200, PosY, PosX + 200, PosY ); 
if( MaxColores > 4 ) setcolor( WHITE ); 
settextjustify( CENTER_TEXT, TOP_TEXT ); 
gprintxy( PosX, PosY, "Texto_Superior" ); 


PosY = 100; 

if( MaxColores > 4 ) setcolor( RED ); 

line( PosX - 200, PosY, PosX + 200, PosY ); 
if( MaxColores > 4 ) setcolor( WHITE ); 
settextjustify( LEFT TEXT, CENTER_TEXT ); 
gprintxy( PosX, PosY, "Texto Izquierda" ); 


PosY = 130; 

if( MaxColores > 4 ) setcolor( RED ); 

line( PosX - 200, PosY, PosX + 200, PosY ); 
if( MaxColores > 4 ) setcolor( WHITE ); 
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settextjustify( CENTER_TEXT, CENTER_TEXT ); 
gprintxy( PosX, PosY, "Texto Centrado" ); 


PosY = 160; 
if( MaxColores > 4 ) setcolor( RED ); 
line( PosX - 200, PosY, PosX + 200, PosY ); 
if( MaxColores > 4 ) setcolor( WHITE ); 
settextjustify( RIGHT_TEXT, CENTER_TEXT ); 
gprintxy( PosX, PosY, "Texto_Derecha" ); 

+ 


main() 
E 
Iniciar(); 
MuestraAlineacion(); 
Pausa(); 
closegraph(); /* Repone modo texto */ 


Segunda parte 


Utilización de los gráficos 
de Turbo C++ 


En la primera sección se este libro se han discutido las distintas órdenes 
gráficas de Turbo C++ y se han ilustrado brevemente. En la segunda parte, 
estas órdenes nos permitirán generar gráficos y utilidades, así como demostrar 
cómo pueden crearse diversos procedimientos y aplicaciones gráficas. 

Las demostraciones incluyen combinaciones de textos con gráficos, crea- 
ciones de pantallas de gráficos bi y tridimensionales para aplicaciones comer- 
ciales, técnicas elementales de animación, gráficos de tortuga, manipulaciones 
de imágenes con rotaciones en dos y tres dimensiones, almacenamiento de 
archivos de imágenes, utilización del ratón con pantallas gráficas y la creación 
de fuentes gráficas a la medida del usuario. Dado que los programas pueden 


trabajar con gran variedad de soportes físicos y con distintas resoluciones y 
posibilidades de color, se mostrarán diferentes técnicas de adaptación al hard- 
ware. 

Advertencia 


La mayor parte de estas aplicaciones se han desarrollado para utilizar con la 
tarjeta EGA o hardwares gráficos de mayor resolución que utilizan pantallas 
en color, En determinados casos prácticos, el código se ha adaptado al modo 
CGA o equipamiento monográfico, para lo cual han sido necesarias ciertas 
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modificaciones de los códigos fuente, sobre todo en los modos de menor 
resolución. 

Si bien las resoluciones bajas y los equipos monocromo permiten la repre- 
sentación de gráficos, los modos de color de 640x350 proporcionan un están- 
dar mínimo para la demostración de las aplicaciones gráficas. 

Si estas aplicaciones y demostraciones hubieran sido escritas para trabajar 
sólo bajo las limitaciones impuestas por las resoluciones más bajas y las 
posibilidades del color, se estaría ignorando su capacidad real. 

La resolución vertical de EGA, de 350 pixels proporciona mayores pos 
lidades de detalle que aquélla que tenga 200 pixels (aunque lo ideal hubieran 
sido los 1.024 pixels de resolución vertical de IBM-8514). Una paleta de 16 
colores muestra más información visual que una monocromo. La utilidades 
que aquí se muestran harán uso de estas posibilidades siempre y cuando sea 
posible, incluso cuando aquéllas no constituyan una oferta universal. 

Dado que las pantallas VGA son cada vez más habituales (y están pujando 
para convertirse en un nuevo estándar), los ejemplos incluyen opciones que 
permiten su adaptación a este tipo de resoluciones. 

Además, aunque Turbo C++ da soporte tanto a la programación conven- 
cional como a la programación orientada a objetos, los programas de demos- 
tración de la segunda parte utilizan prácticas de programación convencional 
exclusivamente, si bien pudieran haber sido convertidas a la tecnología de 
objetos. Las prácticas de los gráficos objeto se reservan para la tercera parte: 
Gráficos Orientados a Objetos en Turbo C++. 


Pantallas de gráficos 
comerciales 


Las aplicaciones gráficas requieren a menudo pantallas gráficas para mostrar 
figuras sobre ventas, información financiera, fluctuaciones de los precios de 
las acciones y otros tipos de datos numéricos. Una pantalla con gráficos hace 
más comprensible la información que una columna de cifras; además, un 
gráfico ofrece comparaciones visuales que permiten delimitar tendencias, irre- 
gularidades y variaciones de una manera más obvia que los propios números 
Las pantallas de gráficos son más contundentes que las pantallas alfanuméri- 
cas. En función de la naturaleza humana, esta última consideración, la de una 
pantalla visualmente más impactante, es la de mayor peso de las dos. 

Los gráficos comerciales que aquí se muestran han sido creados con ayuda 
de la imaginación, utilizando para ello colores y patrones de relleno siempre 
que ha sido posible. A veces se han creado con el objetivo de producir un 
impacto más visual que informativo. Admitido esto, lo anterior no deja de ser 
una distinción puramente subjetiva, pero es algo que debemos tener en cuenta 
en el momento de la creación de los gráficos y de la selección de estilos, 
patrones y colores. 


Nota de advertencia 


Al crear pantallas de gráficos, recuerde que la moderación es la mejor virtud. 
Es posible no sólo incluir demasiada información en el gráfico, sino también 
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convertir éste en algo ininteligible a causa de exceso artístico, de información 
o de interrelaciones cruzadas. 

El primer propósito de un gráfico consiste en presentar la información de 
forma y manera que muestre la interrelación entre las figuras. Esta fase no 
debería generarse con exceso de sombras ni quedar frustrada por el inadecua- 
do uso de colores, patrones, rótulos, logotipos o cualesquiera otros elementos 
dirigidos a atraer la atención visual. La información deberá ser un foco de 
atención principal; el entretenimiento deberá ir a continuación. 


Demostración de gráficos comerciales 


Aunque existen al menos varios cientos de tipos y estilos posibles de gráficos 
comerciales, este capítulo se centra en cinco representaciones gráficas bási- 
cas: gráficos de tarta, gráficos de barras, gráficos de barras múltiples, gráficos 
de barras en 3 dimensiones y gráficos de líneas. (Para imprimir pantallas 
gráficas, consulte el capítulo 14). 

Los primeros cuatro tipos de gráficos se han combinado en un único pro- 
grama de demostración, mientras que el último se presenta de forma separada. 
Cada uno de los cuatro primeros estilos gráficos presenta los mismos datos, 
aunque en un formato diferente. El programa de demostración se detiene (tras 
la presentación de cada uno de los gráficos) a la espera de la pulsación de una 
tecla, El último programa de demostración (gráficos en 3-D) muestra distintas 
pantallas con diferentes profundidades y se detiene tras la presentación de 
cada gráfico. 

Los datos utilizados en cada demostración se han escrito en dos arrays: uno 
de enteros y otro de elementos de tipo char. En la realidad, esta información 
podría ser leída de fuentes externas, tales como los datos de una hoja de 
cálculo, los archivos de una base de datos, arrays de datos creados interna- 
mente o bien desde archivos creados por el propio programa del usuario. 


int Cantidades[4][9]= 
(1996/0133, 1857397 17,29) 157 17,032) 
1987, 122, 41, 30, 25, 18, 24, 43, 21, 
1988, 111, 65, 57, 14, 17, 39, 32, 17, 
1989, 100, 60, 70, 12, 16, 13, 17, 12 ); 
char *TiposCant[9] = 
[" ", "Motor", "Segur", "Repr", "Impu", 
"Credi", "Neuma", "Pintu", "Otros"); 


Los conjuntos de datos que aparecen son los de facturación de una empresa 
anónima durante cuatro años, separados en cuatro categorías. Experimente 
libremente con estas pantallas simplemente cambiando las figuras a su antojo. 


PANTALLAS DE GRÁFICOS COMERCIALES 109 


Pantallas de gráficos de tarta 


Por medio de la función DibujaGrafSectores se han creado cuatro gráficos de 
tarta, uno para cada año (consulte la Figura 9-1). Para ello se han utilizado 
tres parámetros, el primero es el índice del array que almacena los años, el 
segundo y el tercero indican las coordenadas x e y de las posiciones de la 
pantalla donde deberá centrarse el gráfico de tarta. 


void DibujaGrafSectores() 
AE 
int Y1l = getmaxy() * 0.275, 
Y2 getmaxy() * 0.725; 


cleardevice(); 
graphdefaults(); 

rectangle (0, 0, MaxX, MaxY); 
GrafSectores(0, 150, Y1); 
GrafSectores(1, 450, Y1); 
GrafSectores(2, 150, Y2); 
GrafSectores(3, 450, Y2); 


Por motivos de adaptación de las diferentes resoluciones verticales, las 
posiciones según el eje y de los gráficos de tarta no se calculan de forma 
absoluta. Esto es válido para pantallas CGA, aunque se recomiendan resolu- 
ciones EGA o resoluciones más altas en color. 

Al llamar a GrafSectores se ponen en funcionamiento varias variables lo- 
cales: Total, que se inicia con el valor cero y permite calcular el valor total 
de todos los objetos de datos que dan como resultado una porción correcta de 
tarta; m, que se inicia con el valor 135 y permite ubicar el rótulo del año; s y 
1, que se inician con el valor cero y se utilizan como ángulos de comienzo y 
fin de cada porción. 


void GrafSectores (int datos, int x, int y) 
t 
int i, m=135, r, s = 0, t = 0, JustH, Justv; 
int Total = 0; 
int LineaInvisible = 0x0000; 
int CapColor; 
struct arccoordstype Arco; 


La variable Linealnvisible también se inicia con el valor cero y se utiliza 
para dibujar una línea invisible que permita ubicar rótulos alrededor del grá- 
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Figura 9-1 Distintos gráficos de tarta 


Motor Motor 
1986 1987 
Segur 
Segur 
Otros ¡A o 
Repr. E 
Pintu Pintu 
Impu Peuna Pen 
Crea! Credi (E 
Motor 
1988 1989 Motor 
Segur 
Segur 
Otros Otros 
pe E Píntu 
: Pintu [PRE 
an Cradi 
an Neuna da] 


Los gráficos de tarta muestran las cuentas financieras de una compañía ficticia, durante 
cuatro años. El gráfico ha sido generado por TODOGRAF.C en color, sobre una pantalla 
VGA, y ha sido tomado de forma directa como una imagen .PCX. Si Vd. desease un informe 
con formato podría haber lanzado este mismo gráfico a una impresora laserjet en modo 
ESCALA DE GRISES, haciendo uso de la utilidad LJ_GRAPH. 


fico de tarta. No es necesario especificar 0x0000; basta con un único O. Para 
definir un estilo de línea menos vacía es necesario especificar un número 
hexadecimal de cuatro dígitos, opción elegida en los desarrollos. 

En un primer paso se producirá la totalización de los elementos que defi- 
nen el año vigente (datos) : el radio r recibirá la cuarta parte del valor total. 


for (i=1; i<=8; 14+) 
Total += Cantidades [datos] [i]; 


r = Total / 4; 
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Pantallas de gráficos de tarta 


Por medio de la función DibujaGrafSectores se han creado cuatro gráficos de 
tarta, uno para cada año (consulte la Figura 9-1). Para ello se han utilizado 
tres parámetros, el primero es el índice del array que almacena los años, el 
segundo y el tercero indican las coordenadas x e y de las posiciones de la 
pantalla donde deberá centrarse el gráfico de tarta. 


void DibujaGrafSectores() 
t 
int Yl = getmaxy() * 0.275, 
Y2 getmaxy() * 0.725; 


cleardevice(); 
graphdefaults(); 

rectangle (0, 0, MaxX, MaxY); 
GrafSectores(0, 150, Y1); 
GrafSectores(1, 450, Y1); 
GrafSectores(2, 150, Y2); 
GrafSectores(3, 450, Y2); 


Por motivos de adaptación de las diferentes resoluciones verticales, las 
posiciones según el eje y de los gráficos de tarta no se calculan de forma 
absoluta. Esto es válido para pantallas CGA, aunque se recomiendan resolu- 
ciones EGA o resoluciones más altas en color. 

Al llamar a GrafSectores se ponen en funcionamiento varias variables lo- 
cales: Total, que se inicia con el valor cero y permite calcular el valor total 
de todos los objetos de datos que dan como resultado una porción correcta de 
tarta; m, que se inicia con el valor 135 y permite ubicar el rótulo del año; s y 
1. que se inician con el valor cero y se utilizan como ángulos de comienzo y 
fin de cada porción. 


void GrafSectores (int datos, int x, int y) 

1 
int i, m=135, r, s =0, t = 0, JustH, Justv; 
int Total = 0; 
int Linealnvisible 
int CapColor; 
struct arccoordstype Arco; 


0x0000; 


La variable Linealnvisible también se inicia con el valor cero y se utiliza 
para dibujar una línea invisible que permita ubicar rótulos alrededor del grá- 
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Dado que sólo hay ocho módulos por año, el entero actual podría aprove- 
charse como control de bucle. En otras aplicaciones, el número de módulos 
puede que varíe, por lo que deberá utilizarse un método distinto para el con- 
trol del bucle, Esto puede llevarse a cabo a través de un índice: Elementos. 


for (i=1; i<=Elementos; i++) 
O bien, calculando el número de elementos: 


for (i=1; 
i<=(sizeof (Cantidades) / anios * sizeof (integer)); 
1++) 


Ahora que hay un radio es posible poner sobre la pantalla un rótulo indi- 
cativo del año (antes de dibujar el gráfico de tarta). En vez de ubicar el rótulo 
de manera arbitraria (y tener que definirle una posición nueva cada vez que 
haya un nuevo conjunto de datos) es preferible poder calcular la posición. 

Lo anterior siempre es posible, dado que se conoce el radio r. Sin embargo, 
hay un método más elegante que se va a utilizar repetidamente (cuando se 
dibuje el gráfico de tarta). Al llamar a GrafSectores, la variable m se ha 
iniciado con el valor 1 ángulo que se dirige a la parte izquierda de un 
eventual gráfico de tarta. 

El estilo de línea se carga con el valor Linealnvisible, previamente definido 
como 0x0000; el estilo de relleno se carga con el valor 0 (EMPTY_FILL) y 
el color de relleno se pone también a 0 (BLACK). 


setlinestyle (USERBIT_LINE, Linealnvisible, NORM_WIDTH); 
setfillstyle(0, 0); 


A continuación, se llama a la función pieslice, con x e y como centro de 
coordenadas, para dibujar una porción de tarta que comienza en el ángulo m 
y finaliza en el ángulo m+1, con un radio r+10. Sólo hace falta una anchura 
mínima de ángulo de un grado. Además, la utilización de un radio 10 pixels 
superior al que se va a utilizar para el gráfico de tarta proporciona una posi- 
ción exterior a nuestra eventual imagen gráfica. 


pieslice(x, y, m, m+1, r+10); /* debe tener UN GRADO 
de 


nchura mínima */ 
getarccoords (Arco); 


La porción de tarta dibujada en este caso es invisible, pero genera una 
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porción de pantalla que puede recuperarse sin más que llamar a getarccoords. 
Antes de hacer nada con esta información es necesario cargar los valores 
vigentes del color, del estilo de texto y de la justificación. 


if (MaxColores > 4) setcolor (WHITE); 
settextstyle (SANS_SERIF_FONT, HORIZ_DIR, 2); 
settextjustify(RIGHT_TEXT, BOTTOM_TEXT); 


Este es el momento de desencadenar la llamada a la función gprintf con 
las coordenadas xend, yend de la estructura Arco y los datos del año (que 
coinciden con el elemento de posición O de la matriz cantidades[datos]) para 
que se escriban en la pantalla, 


gprintf (£Arco.xend, £Arco.yend, 
"%d", Cantidades [datos] [0]; 


Recuerde que getarccoords devuelve un registro de datos que contiene las 
coordenadas de pantalla x e y de comienzo y fin de la última llamada a 
cualquiera de las funciones arc, circle, ellipse y pieslice. 

Este peculiar método de cálculo de la posición de un rótulo sobre la pan- 
talla se utilizará varias veces durante el proceso de pintado del gráfico de 
tarta, Esto permitirá ubicar adecuadamente el rótulo de cada porción. Antes 
de comenzar, se activará el estilo de texto por omisión y, en caso de conside- 
rarse práctico, también puede restituirse el color de dibujo. 


settextstyle (DEFAULT_FONT, HORIZ_DIR, 1); 
if (MaxColores > 4) setcolor (EGA_ YELLOW); 


En este momento se dibujan las porciones de tarta, utilizando para ello un 
bucle controlado por el número de estos elementos. 


for (i=1; i<=8; i++) 


1 


El estilo y el color de relleno se cambian de forma arbitraria para cada 
función. En esta aplicación (sobre un sistema monocromo), el valor del color 
de relleno puede ignorarse; sin embargo, el color de dibujo no resulta ser tan 
inconsecuente, Los parámetros de la línea se cargan con los valores de una 
línea sólida antes de crear una nueva porción de tarta. 


setfillstyle (i, 1); 
if (MaxColores > 4) setcolor (WHITE); 
setlinestyle (SOLID_LINE, 0, NORM_WIDTH); 
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El ángulo de fin de una porción de tarta de calcula como el ángulo propor- 
cional. Como se puede observar, todos los cálculos se han llevado a efecto en 
formato de doble precisión y el resultado final ha sido transformado en un 
valor entero, ya que la función pieslice no admite valores en coma flotante. 
Además, el resultado ha sido incrementado en 0,5 unidades antes que se pro- 
duzca un truncamiento para redondear el resultado al entero más próximo, en 
vez de hacerlo al siguiente entero más bajo, 


t += (int) (360 * (double) Cantidades [datos] [i] 
/ (double) Total + 0.5); 


Si el valor de un ángulo devuelto superara los 360 grados (error improba- 
ble, salvo en la porción final), entonces éste se fijaría arbitrariamente con el 
valor 360 para evitar una representación confusa, De la misma forma, si la 
última porción de tarta no llegara a completar el círculo (si £ fuera inferior a 
360), entonces se procedería a su corrección para conseguir que la tarta estu- 
viera completamente finalizada. Esta clase se error puede producirse cuando 
se están calculando varios ángulos y están siendo redondeados al valor entero 
más próximo. Sin embargo, el error acumulativo no deberá superar un grado 
por cada porción. En este ejemplo puede llegarse a dar un error máximo de 
ocho grados. 


if (t > 360) t = 360; 
if (i == 8) if (t < 360) t = 360; 


Dependiendo de la aplicación, podría procederse a la ordenación de los 
objetos para que la corrección fuera añadida a la porción individual más 
amplia o bien distribuída entre todas las posiciones. 

A continuación se crea la porción real sirviéndose de las coordenadas x e 
y del centro, del ángulo s de comienzo, del ángulo + de final y del radio r. 


pieslice (x, Y, 8, €, 1); 


Este es el momento de reasignar el estilo de línea con el valor Linealnvi- 
sible, el estilo de relleno con el valor EMPTY_FILL y el color de relleno con 
BLACK. Además, el color de trabajo CapColor se carga con el equivalente 
de brillo del color de relleno utilizado en la última porción de tarta (+8) y, 
si es necesario, el color de dibujo se cargará con el valor de.CapColor. 


setlinestyle (USERBIT_LINE, Linealnvisible, NORM_WIDTH); 
setfillstyle(0, 0); 
CapColor = i+8; 
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Gráficos de tarta di 


if (CapColor > WHITE) CapColor = DARKGREY; 
if (MaxColores > 4 ) setcolor (CapColor); 


En este momento, el programa vuelve a repetir la misma operación que se 
realizó para ubicar el número del año (antes de comenzar el gráfico de tarta) 
pero con una diferencia. El ángulo m se convierte en el ángulo mitad de los 
ángulos de comienzo y fin de la porción actual de tarta, procediéndose a 
dibujar de nuevo una porción invisible; entonces getarccoords devuelve las 
coordenadas de pantalla de los puntos finales. 


m= (t - 8) / 2 + 8; 
pieslice (x, Y, m, m+l, r+5); 
getarccoords (K£Arco); 


El siguiente paso organiza los valores de justificación horizontal y vertical 
del texto de forma que el rótulo de la porción actual de tarta se ubique fuera 
del gráfico de ésta, Además, se llama a outtextxy para escribir el rótulo Ti- 
posCant[i] en la pantalla. 


if(Arco.xend > x) JustH = LEFT_TEXT; 
else JustH = RIGHT_TEXT; 
if (Arco.yend > y) JustV = TOP_TEXT; 
else JustV = BOTTOM_TEXT; 
settextjustify (JustH, Justv); 
outtextxy (Arco.xend, Arco.yend, TiposCant[i]); 


Por último, el ángulo final de la actual porción se convierte en el ángulo 
de comienzo de la siguiente porción, y el bucle continúa. 


=u 
" 
ld 


dida 


La técnica utilizada anteriormente para la colocación de los rótulos del gráfico 
de tarta puede utilizarse también para generar un gráfico de tarta dividida, 
(gráfico de tarta en el que uno o más sectores se separan del centro para hacer 
énfasis en uno concreto). Para mantener la simetría del gráfico en su conjunto, 
el desplazamiento debe hacerse en el ángulo adecuado: el ángulo mitad de la 
porción. 
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El siguiente código proporciona un desplazamiento radial de cinco pixels, 
siempre y cuando se haya creado primero una porción invisible. 


setlinestyle (USERBIT_LINE, Linealnvisible, NORM_WIDTH); 
setfillstyle (0, 0); 

m= (t - 8) / 2 + 8; 

pieslice (x, y, m, m+l, 5); 

getarccoords (Arco); 


Luego se reasignan los colores de estilo de relleno y de dibujo. 


setfillstyle (i, 1); 
if (MaxColores > 4) setcolor (WHITE); 
setlinestyle (SOLID_LINE, 0, NORM_WIDTH); 


Y se crea la porción dividida, centrada en las coordenadas Arco de la 
porción no visualizable. 


pieslice (Arco.xend, Arco.yend, Ss, t, r); 


Para calcular la colocación del rótulo de esta porción es necesario sumar 
otras cinco unidades de radio ; de esta forma, este rótulo quedará colocado de 
manera proporcionada. 


Gráficos de barras 


Los gráficos de tarta causan un gran impacto visual; los gráficos de barras 
ofrecen, sin embargo, una clara comparación visual de las magnitudes. A 
menudo, los gráficos de barras se dibujan verticalmente, como en los progra- 
mas de demostración, aunque también pueden representarse en horizontal. 
Mientras la función GrafSectores no compensa las resoluciones horizonta- 
les inferiores a 640 pixels, la función GrafBarras (consulte la Figura 9-2) 
ajusta la representación gráfica para que, tanto las resoluciones horizontal y 
vertical de la pantalla como el modo gráfico en uso cuadren en su entorno. 
GrafBarras comienza ajustando la anchura al valor MaxX y la altura MaxY. 


void GrafBarras() 
y 
int Ancho = MaxX, Alto = MaxY, Izquierda = 0, 
Arriba = 0; 
int i, j, PasoHoriz, PasoVert, Abajo, X, Y, AltoBarra; 
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Figura 9-2 Gráficos de barras 
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El gráfico muestra la actividad financiera de una empresa ficticia durante cuatro años. El 
gráfico ha sido creado por medio de TODOGRAF.C sobre una pantalla VGA color y captu- 
rado directamente como imagen .PCX. 


A continuación se crea una ventana gráfica con un margen superior que 
permita, posteriormente, escribir rótulos. Luego, se decrementa Ancho en 30 
para dejar espacio para los rótulos de cantidades. El paso gráfico horizontal 
(PasoHoriz) se calcula en función de la variable de anchura; en total, propor- 
ciona 32 columnas. El paso vertical (PasoVerf) se calcula en función de la 
variable de altura. Por último, la variable Abajo se carga con el séxtuple del 
paso vertical. 


setviewport (Izquierda, Arriba+5, 
Izquierda+Ancho, Arriba+Alto+5, 0); 

Ancho -= 30; 

PasoHoriz = Ancho/32; 

PasoVert = Alto/6; 

Abajo = PasoVert*6; 
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En este caso particular, el gráfico se divide verticalmente en seis incremen- 
tos, cada uno de 25 unidades (que pueden ser dólares, libras o cientos de 
yenes, miles o unidades similares). En una aplicación en la que el rango de 
valores no se conociera de antemano podría examinarse primero el valor más 
alto y luego generarse los incrementos gráficos de acuerdo con éste, numeran- 
do adecuadamente las marcas de la escala vertical. (Consulte GraficoLineas.) 

Desde una perspectiva horizontal, las barras pueden agruparse en unidades 
de a cuatro, colocando cada tipo de dato (correspondiente a cada uno de los 
cuatro años) en su lugar correspondiente. Los marcadores verticales aparecen 
cada cuarto de PasoHoriz: 


if (MaxColores > 4) setcolor (GREEN); 
for (i=0; i<=PasoHoriz*32; i+=PasoHoriz*4) 
line(i, 0, i, PasoVert*6); 


Las líneas de escala horizontal se dibujan para cada valor de PasoVert: 


if (MaxColores > 4) setcolor (CYAN); 
for (i=0; i<=Abajo; i+=PasoVert) 
line (0, 1, PasoHoriz*32, 1); 


Una vez completo el emparrillado, la variable Abajo se desplaza un pixel 
hacia arriba para que las barras no sobreimpriman la base de aquél: 


Abajo--; 


En este momento, el color de dibujo, el estilo de texto y las fuentes están 
activos, mientras las porciones incrementales (líneas horizontales) se rotulan 
desde el 150 en la parte superior hasta el valor O en el fondo, decrementán- 
dose en pasos de 25 unidades. 


if (MaxColores > 4) setcolor (WHITE); 
settextstyle (DEFAULT_FONT, HORIZ_DIR, 1); 
settextjustity (CENTER_TEXT, CENTER_TEXT); 
for (1=0; 1<7; ++) 


1 

x = PasoHoriz*32 + 15; 

y = i*PasoVert; 

gprintf (£x, y, "%d", 150-1*25); 
) 


En este momento, una vez completo el emparrillado de fondo, ya pueden 
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crearse las barras. La altura de la barra se calculará con un desplazamiento 
vertical desde Abajo con escala de 25 unidades por escalón vertical. 


for (i=1; i<=8; i++) 
4 
for (j=0; j<4; j++) 
t 
AltoBarra = Abajo - Cantidades [j]([i] 
* (double) PasoVert / (double) 25; 


Si el sistema de vídeo que se manipula en estos momentos es de alta 
resolución en color, entonces para cada barra indicativa de un año se utilizará 
un color de contorno y un color de relleno. En caso contrario, sólo se cambia- 
ría el estilo de relleno, manteniendo en valor WHITE (MaxColores - 1) tanto 
el color de dibujo como el de relleno. 

if (MaxColores > 4) setcolor (j+1); 

if (MaxColores > 4) setfillstyle (i, j+1); 

else setfillstyle (i, MaxColores-1); 


Se ha utilizado la función bar3d, aunque el gráfico generado sea bidimen- 
sional; en este caso, el grado de profundidad debe ser O. La función bar no 
dibuja un contorno; sólo genera una barra con un color y un estilo de relleno. 
La función bar3d proporciona un contorno del color vigente de dibujo, dando 
una apariencia más agradable. 

Como alternativa, podría dibujarse un contorno con la función rectangle y 
luego llamar a la función bar para rellenar el área. Los efectos son idénticos, 
sin embargo el proceso es más lento, 


bar3d( (i-1)*PasoHoriz*4 + j*PasoHoriz + 2, AltoBarra, 
(i-1)*PasoHoriz*4 + j*PasoHoriz + PasoHoriz-2, Abajo, 
0, 0); 

y pertamds bucle para ].*/ 


Al igual que ocurre en el último paso de bucle tras haber dibujado cada 
grupo de cuatro barras (una por año), el color de dibujo se restituye al valor 
WHITE, procediéndose a imprimir un rótulo en la parte superior de la colum- 
na gráfica. 


if (MaxColores > 4) setcolor (WHITE); 
outtextxy (i*PasoHoriz*4-PasoHoriz*2, 5, TiposCant[il); 
) /* fin de bucle para i */ 
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Por último, si se admiten el color y la alta resolución, entonces aparecerán 
en la pantalla los números asociados a los cuatro años; sus colores de dibujo 
y de relleno coincidirán con los utilizados para generar cada barra. Si el 
sistema es monocromo, lo anterior se convierte en algo de poco interés, a no 
ser que se desee especificar explícitamente. El usuario podría, incluso, modi- 
ficar el código para incorporar un pequeño bloque junto a cada número espe- 
cificativo del año, utilizando para ello el estilo de relleno correspondiente al 
ano. 


if (MacColors > 4) 
1 
x = MaxX/2; 
y = MaxY/4; 
settextstyle (DEFAULT_FONT, HORIZ_DIR, 2); 
for (i=0; 1i<4; i++) 
dE 
setcolor(i+1); 
gprintf£f(£x, £y, "%4d", Cantidades[i][0]; 
x += textwidth(" "); 
A: 


Gráficos de barras múltiples 


La combinación de los datos de varios años en un único gráfico de barras 
permite disponer de un buen método para compararlos entre sí (consulte la 
Figura 9-3). Sin embargo, hace difícil la comparación de las diferentes cate- 
gorías dentro de cada año, así como la visualización de cada año como un 
todo. Hay veces que los gráficos de cada año por separado resultan más útiles 
(y a veces más impactantes) que un único gráfico combinado. La función 
DibujaMultiGraph genera cuatro gráficos en una sola pantalla, uno para cada 
año. 


void DibujaMultiGraf () 

t 
MultiGrafBarras (0, 0, 0); 
MultiGrafBarras (1, MaxX/2, 0); 
MultiGrafBarras (2, 0, MaxY/2); 
MultiGrafBarras (3, MaxX/2, MaxY/2); 
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Figura 9-3 Gráficos de barras multiples 
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Los gráficos de barras múltiples muestran la actividad financiera de una compañía ficticia 
durante el periodo de cuatro años. El gráfico ha sido generado por TODOGRAE.C para una 
pantalla VGA color y capturada directamente como imagen .PCX 


Al igual que GrafBarras, la función MultiGrafBarras ajusta la repre- 
sentación gráfica de forma que cuadre con las resoluciones horizontal y ver- 
tical de la pantalla y con el modo gráfico en uso. Esta función comienza 
activando la anchura con el valor MaxX/2 y la altura con MaxY/2-13. El valor 
de la altura incluye un margen de 13 pixels, mientras que el de la anchura lo 
hace con 30 pixels, proporcionando así una apariencia más agradable, 


void MultiGrafBarras (int datos, int izquierda, int arriba) 
t 

int Ancho = MaxX/2-30; 

int Alto = MaxY/2-13; 

int i, PasoHoriz, PasoVert, abajo, X, y; 

double Escala; 
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La ventana gráfica y los factores de escala son esencialmente los mismos 
que los de la función GrafBarras, con la diferencia de que sólo existirán ocho 
barras horizontales. El factor de escala vertical se calcula como la variable 
Escala, en lugar de hacerlo de forma separada cada vez que sea necesario. 


setviewport (izquierda, arriba+5, 
izquierda+Ancho, Arriba+Alto+5, 0); 

PasoHoriz = Ancho/8; 

PasoVert = Alto/6; 

Abajo = PasoVert * 6; 

Escala = (double) PasoVert / 25; 


El emparrillado de fondo se representa con factores de escala a lo largo del 
margen derecho. 


if (MaxColores > 4) setcolor (GREEN); 
for (i=0; i<=PasoHoriz*8; i+=PasoHoriz) 
line (i, 0, i, PasoVert*6); 
if (MaxColores > 4) setcolor (CYAN); 
for (i=0; i<=Abajo; i+=PasoVert) 
line (o, i, PasoHoriz*8, 1); 
if (MaxColores > 4) setcolor (WHITE); 
settextstyle (DEFAULT_FONT, HORIZ_DIR, 1); 
settextjustify (CENTER_TEXT, CENTER_TEXT); 
for (i=0; i<7; i++) 
1 
x = PasoHoriz * 8 + 15; 
y = i * PasoVert; 
gprintf (8£x, €y, "%d", 150-1*125); 
) 


El gráfico generado contiene los datos del año seleccionado. Es similar a 
GrafBarras, pero tiene una diferencia fundamental. Dado que las barras nece- 
sitan ser rotuladas individualmente y no son lo suficientemente anchas para 
los rótulos del texto horizontal, es imprescindible seleccionar la dirección 
vertical. Los rótulos quedarán centrados horizontalmente sobre cada una de 
las barras y se nivelarán en un punto que se encuentra cinco pixels por debajo 
del límite superior de la ventana gráfica. 

En caso de utilizar sistemas EGA o de mayor resolución, los rótulos apa- 
recerán en blanco nítidamente, incluso aún quedando parcialmente solapados 
con una barra de color. Por este motivo se ha utilizado la función bar, en lugar 
de la función bar3d, porque una línea de contorno pudiera haber hecho más 
difícil la lectura del área solapada. En los modos monocromo, sin embargo, 
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esto se convierte en un gran problema. A continuación se muestra una alter- 
nativa. 


settextstyle (DEFAULT_FONT, VERT_DIR, 1 ); 
settextjustify (CENTER_TEXT, TOP_TEXT); 
for (i=0; i<=7; i++) 
1 
if (MaxColores > 4) setfillstyle (i+1, ¿+1); 
else setfillstyle (i+1, MaxColores-1); 
bar (i*PasoHoriz+2, 
Abajo-Escala*Cantidades [datos] [i+1]-1, 
(i+1)*PasoHoriz-2, Abajo-1); 
outtextxy (i*PasoHoriz+PasoHoriz/2, 5, TiposCant[i+1]; 
) 


Por último, cada gráfico recibe el dato del año: 


settextstyle (SANS_SERIF_FONT, HORIZ_DIR, 2); 
settextjustify (CENTER_TEXT, BOTTOM_TEXT); 

x = Ancho/2; 

y = Alto/2-4; 

gprintf (8x, £y, "%d”, Cantidades [datos] [01]; 


Mejora de la pantalla monocromo 


Como ya se ha dicho, surge un problema con los modos de pantalla en mo- 
nocromo cuando un rótulo se solapa con una barra y no permite su perfecta 
legibilidad, Para solucionarlo, existe un método muy sencillo, Primero, añadir 
a la función MultiGrafBarras la declaración de una variable puntero al enca- 
bezamiento. 


void *encabezamiento; 


Se generan los parámetros de color, texto y ventana gráfica como antes, y 
se dibujan el fondo y las líneas del emparrillado. Luego, en el bucle previo al 
dibujo de las barras, se llama a la función borracadena (definida en el capítulo 
8 e incluída en gprint.i) para borrar al área donde se va a imprimir el rótulo; 
posteriormente, se envía éste a la pantalla. 


for (i=0; i<=7; i++) 
£ 


x = i * PasoHoriz + PasoHoriz / 2; 
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y = 5; 
borracadena (x, y, TiposCant[i+1]); 
outtextxy (x, y, TiposCant [i+1]); 


A continuación se reserva memoria para el encabezamiento: 


encabezamiento = malloc ( 
imagesize(x, y, textheight (TiposCant[i+1]), 
textwidth  (TiposCant[i+1]))); 


Dado que la justificación horizontal se ha cargado con el valor CEN- 
TER_TEXT, la coordenada x debe desplazarse en la mitad de la altura de la 
cadena TiposCant[i + 1] para asegurar la correcta lectura del área de imagen. 


x -= textheight (TiposCant [i+1])/2; 


A continuación, la función getimage procede a la lectura del rótulo de la 
pantalla, guardándolo en la variable encabezamiento, mientras la función pu- 
timage utiliza la opción XOR_PUT para borrar el rótulo momentáneamente. 


getimage(X, y, 
x + textheight (TiposCant [i+1]), 
y + textwidth  (TiposCant [i+1]), 
encabezamiento); 

putimage (x, y, encabezamiento, XOR_PUT); 


La barra se dibuja como antes: 


if (MaxColores > 4 ) setfillstyle (i+1, i+1); 
else setfillstyle (i+1, MaxColores-1); 
bar (i*PasoHoriz+2, 
Abajo - Escala * Cantidades [datos] [i+1]-1, 
(1+1) * PasoHoriz-2, Abajo-1); 


La función putimage vuelve a llamarse de nuevo con la opción XOR_PUT 
para realizar una operación OR exclusiva de la imagen encabezamiento con 
la imagen de la pantalla. El resultado es que la porción del rótulo que se 
solapa con la barra se torna visible al transformarse en un color negro sobre 
un fondo blanco, en vez de permanecer invisible (color blanco sobre fondo 
blanco). 


putimage (Xx, y, encabezamiento, XOR_PUT); 
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Por último, se procede a la liberación de la memoria reservada para la 
variable encabezamiento. 


free (encabezamiento); 


Esta misma modificación puede llevarse a cabo sobre las pantallas en co- 
lor; sin embargo, los efectos producidos puede que no sean los esperados. 
Recuerde que al efectuar la operación OR exclusiva de WHITE (blanco) con 
WHITE, el resultado es BLACK (negro) y una OR exclusiva de WHITE con 
BLUE (azul) proporciona YELLOW (amarillo). En caso de utilizar un sistema 
EGA/VGA, la función Iniciar de TODOGRAF.C deberá prescindir de la línea 
que dice: 


ControladorGrafico = DETECT; 
En su lugar deberán incorporarse las dos siguientes: 


ControladorGrafico = CGA; 
ModoGrafico = CGAHI; 


Esto permite que el sistema EGA/VGA emule el comportamiento CGA y 
puedan verse las dificultades que se derivan del uso de pantallas monocromo. 
Lo anterior, además, permite disponer de un buen método para ver cómo se 
ejecutan los programas en un sistema CGA, sin necesidad de tener que emi- 
grar a otro computador. 


Gráficos tridimensionales 


Turbo C++ incorpora la función bar3d para crear gráficos de barras tridimen- 
sionales (consulte la Figura 9-4), sin embargo la creación de una pantalla de 
gráficos 3D es algo más complejo. 

En su forma más elemental, un gráfico de barras 3D es sencillamente un 
gráfico de barras plano en el que las barras se han dibujado con la función 
bar3d; de esta forma se proporciona un efecto de profundidad. Por contra 
existe una única fila horizontal de barras. A veces puede ser necesario el 
efecto tridimensional para visualizar varias filas de barras con la ilusión óptica 
de profundidad en la orientación de las filas, al igual que ocurre con las 
propias barras. Esto genera mayor complejidad. 

Primero, las barras 3D creadas por medio de la función bar3d pueden 
generarse con diferentes profundidades. Segundo, un gráfico tridimensional 
necesita una serie de parámetros tridimensionales con líneas de escala y una 
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apariencia global de profundidad que se corresponda con el aspecto de pro- 
fundidad de las barras individuales. Tercero, todos los objetos deben estar 
unidos en un todo consistente, en vez de aparecer como un conglomerado de 
partes dispersas. 

En sentido puramente racional, un gráfico de barras 3D no aporta más 
información que una serie de gráficos de barras planas. Desde el punto de 
ista visual no es fácil distinguir las alturas relativas de las distintas barras, 
ni el alineamiento de una determinada barra con las líneas de escala del fondo. 
El asunto más importante que debe considerarse aquí es la impresión visual 
que genera un gráfico tridimensional, 


A continuación se mostrarán en formato de cuatro filas y ocho hileras de 
columnas tridimensionales los mismos datos que se han presentado previa- 
mente en los formatos de gráficos de barras y de tarta. Además, la función 
Graficos3D muestra los mismos datos gráficos haciendo uso de una serie de 
profundidades según el eje Z, en pasos de cinco, desde el pixel 15 hasta el 40. 


Figura 9-4 Gráficos de barras tridimensionales 


Pasoz = 35 
Motor Segur Repr. Impu Credí Neuma Pintu Otros 
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4389 


Motor Sagur Repr. Impúu Cradi Nauma Pintu Otros 


El gráfico de barras 3-D muestra el balance financiero de cuatro años de una empresa 
ficticia. El gráfico se ha creado con TODOGRAF.C, en color, en una pantalla VGA y su 
captura se ha llevado a cabo directamente como una imagen .PCX. 


126 


PROGRAMACIÓN DE GRÁFICOS EN TURBO C++ 


Las variables PasoX y PasoY, que coinciden con los incrementos horizon- 
tal y vertical, respectivamente, reciben unos valores a escala tales que permi- 
ten su representación dentro de los límites de la pantalla vigente, mientras que 
OrigX y OrigY representan el origen de la pantalla para los tres ejes. La 
anchura del gráfico (AnchoX) y su altura (AlturaY) se cargarán con valores 
múltiplos de PasoX y PasoY, permaneciendo estos constantes. La variable de 
profundidad ProfundidadZ tendrá que recalcularse para cada pantalla gráfica 
si el incremento según el eje Z (PasoZ) sufre alguna variación. 


void Graficos3D() 
t 
PasoX = MaxX/13; 
PasoY = MaxY/14; 
OrigX = MaxX/3; 
OrigY = MaxY/2; 
AnchoX = 8 * PasoX; 
AlturaY = 6 * PasoY; 
Escala = (double) PasoY / 25; 


La función Graficos3D contiene un bucle que se repetirá mientras el valor 
PasoZ no exceda de los límites de la pantalla. 


for (PasoZ=15; (OrigY+4*PasoZ)<MaxY; PasoZ+=5) 
GrafBarras3D(); 


La función GrafBarras3D produce la visualización de los gráficos, borran- 
do primero la pantalla y definiendo después el valor de la profundidad según 
el valor vigente de PasoZ. 


void GrafBarras3D() 

d 
int Xx, Ye 
cleardevice(); 
ProfundidadZ = 4 * PasoZ; 


El valor vigente de PasoZ se muestra en forma de encabezamiento en la 
esquina superior izquierda de la pantalla: el fondo se genera por medio de 
GrafCampo y las líneas de escala para cada uno de los ejes reciben sus rótulos 
de Letreros. Los elementos del gráfico de barras se dibujan con la función 
PresentaCantidades. El programa se detiene a la espera de la pulsación de una 
tecla antes de mostrar la siguiente pantalla gráfica. 
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settextjustify (LEFT_TEXT, TOP_TEXT); 
setcolor(MaxColores - 1); 

x= 10; y = 10; 

gprintf(8x, £y, "PasoZ = %d", PasoZ); 
GrafCampo(); 

Letreros (); 

PresentaCantidades(); 

Pausa(); 


Los elementos de la pantalla gráfica se generan de forma separada. De esta 
manera se reduce la complejidad de un programa a unas proporciones adecua- 
das. 


La función GrafCampo 
La primera tarea la constituye la función GrafCampo, que permite generar un 
telón tridimensional con líneas que conforman una retícula según los tres ejes. 
Si se admite el color, la función RellenaPlano permitirá crear tres planos 
sólidos, como las tres caras de una caja, en azul, rojo y amarillo. Estos planos 
formarán el fondo de la imagen. RellenaPlano es una mejora importante de la 
función fillpoly y se explicará más adelante. 


void GrafCampo() 


1 
int d; 
if (MaxColores > 4) 
t 


RellenaPlano ( OrigXxX, OrigY, OrigX+AnchoX, OrigY, 
OrigX+AnchoX, OrigY-AlturaY, Origx, 
OrigY-AlturaY, SOLID FILL, LIGHTBLUE); 


RellenaPlano ( OrigxX,OrigY,OrigX-Profundidad/FactAsp), 
OrigY+Profundidadz, 
OrigX- (ProfundidadZ/FactAsp), 
OrigY+ProfundidadZ-AturaY, OrigX, 
OrigY-AlturaY, SOLID _FILL, LIGHTRED); 


RellenaPlano ( OrigX, OrigY, OrigX+AnchoX, OrigY, 
OrigX+AnchuraX-(ProfundidadZ/FactAsp), 
OrigY+Profundidadz, 
OrigX-(ProfundidadZ/FactAsp), 
OrigY+ProfundidadZz, 

SOLID FILL, YELLOW); 
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A continuación, se dibujarán tres líneas desde el origen de la pantalla 
(OrigX, OrigY). Si se crearan los planos de fondo, estas líneas delinearían los 
planos. Si el sistema utilizase una pantalla monocromo, estos ejes y las con- 
siguientes líneas de la parrilla permitirían crear el telón. 


line (Origx, OrigY, OrigX+AnchoX, OrigY); /* Eje X */ 

line (Origx, OrigY, OrigX, OrigY-AlturaY); ¿* Eje Y */ 

line (Origx, OrigY, OrigX-ProfundidadZ/FactAsp, 
OrigY+ProfundidadZ); ¿* Ejo 2 */ 


La línea del eje z (arriba) queda ajustada por el factor de aspecto de la 
pantalla, FactAsp. Esto mismo se produce en todos los puntos del eje z, lo que 
permite mantener el ángulo sobre el eje z constante (aproximadamente 45%), 
independientemente de la resolución, 


/* retícula eje X */ 
if (MaxColores > 4) setcolor (GREEN); 
for (i = OrigX+PasoX; i <= OrigX+AnchoX; i += PasoX) 
( 
line (i, OrigY, i, OrigY-AlturaY); 
line (i, OrigY, i-ProfundidadZ/FactAsp, 
OrigY+ProfundidadZ); 
J /* retícula eje Y */ 
if (MaxColores > 4) setcolor (CYAN); 
for (i = OrigY-PasoY; i>= OrigY-AlturaY; i 
t 
line (OrigX, i, OrigX+AnchoX,i); 
line (Origx, i, OrigX-ProfundidadZ/FactAsp, 
i+ProfundidadZ); 


PasoY) 


J 
/* retícula eje Z */ 
if (MaxColores > 4) setcolor (RED); 
for (1 = PasoZ; i <= ProfundidadZ; i += PasoZ) 
t 
line (Origx-i/FactAsp, OrigY+i, 
OrigX-i/FactAsp+AnchoX, OrigY+i); 
line (OrigxX-i/FactAsp, OrigY+i, 
OrigX-i/FactAsp, OrigY-AlturaY+i); 


La función RellenaPlano 


Esta función nos proporciona el método para asignar un conjunto de puntos 
previamente calculados a un array de números enteros (Polígono). todo ello 


PANTALLAS DE GRÁFICOS COMERCIALES * 129 


antes de llamar a la función fillpoly. Este método es más rápido que el deri- 
vado del uso de la función floodfill y se utilizará varias veces en el programa 
de demostración del relleno de áreas grandes o pequeñas, tanto con colores 
sólidos como con distintos patrones. El valor del color pasado como argumen- 
to (color) sufrirá un proceso de validación. Si se utilizase un sistema gráfico 
monocromo, el color por omisión sería WHITE (blanco). 


void RellenaPlano (int x1, int yl, int x2, int y2/ 
int x3, int y3, int x4, int y4, 
int estilo, int color) 


int Poligono[10]; 


Poligono[0] = Poligono [8] = X1; 
Poligono[1] = Poligono [9] = Y1; 
Poligono[2] = X2; Poligono[3] = Y2; 
Poligono[4] X3;  Poligono[5] Y3; 
Poligono[6] = X4;  Poligono[7] = Y4; 

if (MaxColores < 4) color = MaxColores - 1; 
setfillstyle (estilo, color); 

fillpoly (5, Poligono); 


La función Letreros 


Esta función muestra los rótulos sobre los tres ejes de la pantalla, comenzando 
con las escalas de la magnitud vertical a lo largo de los dos lados de la 
pantalla. Las posiciones del lado derecho se calculan de forma relativamente 
sencilla, dado que están escalonadas desde la posición OrigY, con un despla- 
zamiento sobre el eje x igual a OrigX + AnchoX + 15. 

La parte izquierda, sin embargo, requiere un desplazamiento sobre el eje y 
que se calcula de la forma ProfundidadZ-i*PasoZ, mientras que un desplaza- 
miento sobre el eje x (calculado desde OrigX) es algo más complicado pero 
calculable de la forma OrigX-ProfundidadZ/FactAsp-15. Debe recordarse que 
el eje Z debe mantener un ángulo de 45%. Para ello la variable ProfundidadZ 
debe trazarse en un ángulo tal que haga necesario el uso del factor de aspecto, 
FactAsp, de la pantalla para calcular el desplazamiento sobre ésta. 


woid Letreros() 
t 
int i, J, k, 1, m; 
settextjustify (CENTER_TEXT, CENTER_TEXT); 


j = Origx + AnchoX + 15; 
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1 = OrigX - Profundidadz / FactAsp - 15; 
for (i=1; 1<7; d4++) 
( 
k = OrigY - i * PasoY; 
gprint£ (8€j, £k, "%d", 1*25); 
m = OrigY + ProfundidadZ - i * PasoY; 
gprintf£ (861, em, "%d", 1*25); 


Los rótulos TiposCant se escriben sobre el gráfico en posición horizontal 
y de arriba abajo: 


if (MaxColores > 4) setcolor (LIGHTBLUE); 
Jj = Origx + 25; 

1 = j- (Profundidadz / FactAsp); 

m = OrigY + Profundidadz + 8; 

k = OrigY + AlturaY - 8; 

for (i=1; i<=8; i++) 


outtextxy (j, k, TiposCant[i]); 
outtextxy (1, m, TiposCant[i]); 
j += 50; 
1 += 50; 


Las fechas del año se escriben en ángulo sobre el eje Z: 


if (MaxColores > 4) setcolor (LIGHTGREEN) ; 
for (i=0; i<=3; i++) 


1 
j = Origx - (i * Pasoz + Pasoz / 2)/FactAsp + 2; 
m = OrigY + i * PasoZz + PasoZ / 2; 
k =m- AlturaY; 
1 = j + AnchoX; 


settextjustify(LEFT_TEXT, TOP_TEXT); 

gprintf(£1, sm, "4d", Cantidades[i] [0] 
settextjustify(RIGHT_TEXT, BOTTOM_TEXT 
gprintf( £j, ek, "%4d", Cantidades[i][0]); 


a: 


La función PresentaCantidades 


Para dibujar las barras correspondientes a cada año podría haberse utilizado 
un bucle doble, incrementando posiblemente los colores asociados a los años. 
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Sin embargo, se utilizan cuatro bucles separados, lo que permite la asignación 
de un color específico a cada barra. 


void PresentaCantidades/() 
t 
into 
if ( MaxColores > 4 ) setcolor( EGA_YELLOW ); 
for (i=1; i<=8; i++) 
Barra3D( i-1, 0, Cantidades[0] [i] * Escala, 
LIGHTCYAN, CYAN ); 
for (i=1; i<=8; i++) 
Barra3D( i-1, 1, Cantidades[1] [il] * Escala, 
LIGHTRED, RED); 
for (d=1; i<=8; 1++) 
Barra3D( i-1, 2, Cantidades[2] [il] * Escala, 
LIGHTBLUE, BLUE ); 
for (i=1; i<=8; i++) 
Barra3D( i-1, 3, Cantidades[3] [i] * Escala, 
LIGHTGREEN, GREEN ); 


La función Barra3D 


Esta función se utiliza para crear y colocar las barras de un gráfico tridimen- 
sional. Las variables AnchoBarra y FondoBarra definen el tamaño de la barra 
y reciben como valores iniciales la mitad de los tamaños de los pasos sobre 
los ejes x y z, respectivamente. Para conseguir un efecto visual adecuado es 
necesario diseñar cada barra con un tamaño inferior al espaciamiento entre 
éstas. Las barras más altas no tapan totalmente las barras más pequeñas que 
están detrás de ellas. 


void Barra3D( int izquierda, int abajo, 
int alto, int colorl, int color2 ) 


int arriba, derecha; 
int AnchoBarra = PasoX / 2 
int FondoBarra = PasoZ / 2 


if ( MaxColor: 


1 


colorl = MaxColores - 1; 
color2 = MaxColores - 1; 
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El estilo de relleno de cada barra se incrementa de izquierda a derecha. 


Esto permite generar barras que se distinguen mucho más si la pantalla es 
monocromo. 


setfillstyle(izquierda+1, color1); 


Las variables izquierda y abajo comenzaron definiendo las posiciones de 
los pasos (con valores enteros comprendidos entre los rangos 1-8 y 1-4). 
Ahora se han convertido en las posiciones de desplazamiento de la pantalla 
actual; las variables derecha y arriba proporcionan el resto de los parámetros 
de definición de las esquinas. 


izquierda = OrigxX + (izquierda * PasoX) - 
(((abajo + 0.75 * PasoZz / PasoX) * 
PasoZ)/FactAsp); 

abajo = OrigY + ((abajo + 0.75) * PasoZ); 

derecha = izquierda + AnchoBarra; 

arriba = abajo - alto; 


Llegados a este punto la función bar3d permite la visualización de las 
barras de este gráfico. Esto arrastra un problema: el ángulo producido por 
bar3d para generar el eje Z no coincide en todos los casos con el ángulo 
producido por el parámetro de aspecto de la pantalla. Por este motivo, la 
función bar3d se llama con profundidad cero; para crear el lateral y la parte 
superior de cada barra se llama a la función RellenaPlano. 


bar3d( izquierda, arriba, derecha, abajo, 0, 0 ); 
RellenaPlano( derecha, arriba, 
derecha+FondoBarra/FactAsp, 
arriba-FondoBarra, 
derecha+FondoBarra/FactAsp, 
abajo-FondoBarra, 
derecha, abajo, 
CLOSE_DOT_FILL, color1 ); 
RellenaPlano( izquierda, arriba, derecha, arriba, 
derecha+FondoBarra/FactAsp, 
arriba-FondoBarra, 
izquierda+FondoBarra/FactAsp, 
arriba-FondoBarra, 
SOLID_FILL, color2 ); 


A 4 


Si desea experimentar con todo esto, tome las dos llamadas a RellenaPlano, 
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cargue en el parámetro de profundidad de la función bar3d el valor FondoBa- 
rra/FactAsp y cambie el parámetro final de O a 1, con el fin de crear el plano 
superior de la barra. 


Pantalla de gráficos de líneas 


Las demostraciones previas utilizaban el mismo conjunto de datos para cada 
forma gráfica. Los gráficos de líneas, sin embargo, se utilizan generalmente 
para mostrar seis grupos de datos o menos (cada uno de ellos contendrá un 
gran número de puntos). La demostración que se presenta utiliza cuatro gru- 
pos de datos, cada uno con una secuencia de 20 puntos. Estos puntos se van 
a guardar en una matriz de 4x20 elementos, aunque pudieran haber sido leídos 
en una fuente externa o bien generados por el propio programa. 


int Cantidades[4] [20] = 

( 119, 121, 132, 140, 141, 139, 142, 135, 133, 123, 

121, 120, 124, 111, 109, 119, 122, 132, 140, 142, 

97, 99, 100, 107, 119, 123, 137, 148, 159, 160, 

168, 172, 167, 155, 159, 163, 165, 155, 151, 148, 

59, 73, 66, 49, 40, 39, 41, 45, 46, 52, 

56. 5971 607 56% 15%. Be 55 58, 144: 75, 

13, 157 C1S7 19, (22% (20 17, ,18, 319 21, 

24, 26, 298, :27, 22, (20, 19, 23, 25, 24 1; 


int  Anios[5] = ( 1985, 1986, 1987, 1988, 1989 ); 


char *TiposCant[4] = 
( "Industrial", "Electricas", "Petroleos", 
"Banca" ); 


El gráfico utiliza un conjunto de cuatro imágenes; de esta forma resulta 
más llamativo. Para construirlo se utiliza el procedimiento Crearlmagenes 
(consulte la Figura 9-5). Estas imágenes pudieran haber sido creadas de forma 
independiente y guardadas en archivos de disco, de forma que pudieran lla- 
marse cuando se desease. Junto a esto, simplemente decir que la utilidad 
ICONEDIT permite crear las imágenes deseadas, 


void *ImagenLinea[3]; 
main() 
t 
Iniciar(); /* dispone el modo gráfico */ 
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CrearImagenes (); 
GraficoLineas/(); 


Pausa(); 
closegraph(); /* repone el modo texto */ 
y 
Figura 9-5 Gráficos de líneas 
1985 1986 1987 1988 1989 
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El gráfico de líneas muestra cuatro balances. Las líneas incorporan imágenes de bits que 
permiten delinear puntos sobre las trayectorias. Las imágenes de bits pudieran haberse crea- 
do con una utilidad que se verá posteriormente: IconEdit. El gráfico que se presenta ha sido 
creado por TODOGRAF.C en una pantalla VGA color y capturado directamente como imagen 
PCX. 
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La función Crearlmagenes 


Esta función permite -crear y guardar una serie de imágenes gráficas que 
permitirán enfatizar los puntos de un gráfico de líneas. El array Rayo está 
formado por un conjunto de puntos que permiten la descripción de un pequeño 
y estilizado rayo luminoso. 


void CrearImagenes () 
t 
int i; 
int Rayo[] = (10, 5, 15, 5, 12, 10, 17, 10, 
10, 18, 12, 13, 8, 13, 10, 5); 


La imagen de la rueda o engranaje tiene su origen en una serie de pequeños 
segmentos del gráfico de tarta. Debe tenerse en cuenta que cualquier figura 
en forma de arco aparecerá granulada. En caso de necesitar una figura con 
mayor grado de detalle sería tal vez mejor crear una imagen de bits entera 
después de diseñar la figura en el papel. 


if ( MaxColores > 4 ) setcolor( 2 ); 
for( 1 = 0; 4 <= 5; i++ ) 

pleslice( 10, 10, 1 * 60, (1 * 60) + 60, 10 )2 
ImagenLinea[0] = malloc( imagesize( 0, 0, 20, 20 ) ); 
getimage( 0, 0, 20, 20, ImagenLinea[0] ); 
putimage( 0, 0, ImagenLinea[0], XOR_PUT ); 


La imagen del rayo luminoso hace uso de los datos de rayo y de la función 
fillpoly; el estilo de relleno debe ser EMPTY_FILL. 


setfillstyle(EMPTY_FILL, 0); 

if ( MaxColores > 4 ) setcolor( 3 ); 

fillpoly( sizeof( Rayo ) / ( 2*sizeof( int ) ), Rayo ); 
ImagenLinea[1] = malloc( imagesize( 0, 0, 20, 20 ) ); 
getimage( 0, 0, 20, 20, ImagenLinea[1] ); 

putimage( 0, 0, ImagenLinea[1], XOR_PUT ); 


La imagen de la gota de aceite describe su contorno con ayuda de las 
funciones arc y ellipse. Para completar la imagen es necesario llamar a la 
función floodfill con el parámetro SOLID_FILL y el valor vigente del color, 


if ( MaxColores > 4 ) setcolor( 4 ); 
arc( 10, 10, 105, 360, 8 ); 
ellipse( 0, 5, 300, 90, 8, 3 )5- 
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ellipse( 3, 10, 0, 90, 16, 8 ); 

setfillstyle( SOLID_FILL, getcolor() ); 

floodfil1( 10, 10, getcolor() ); 

ImagenLinea[2] = malloc( imagesize( 0, 0, 20, 20 ) ); 
getimage( 0, 0, 20, 20, ImagenLinea[2] ); 

putimage( 0, 0, ImagenLinea[2], XOR_PUT ); 


La imagen de la caja es la más elemental de las cuatro y utiliza la función 
bar3d para generar un pequeño cubo. 


if ( MaxColores > 4 ) setcolor( 5 ); 

bar3d( 0, 10, 10, 15, 5, 1) 

ImagenLinea[3] = malloc( imagesize( 0, 0, 20, 20 ) ); 
getimage( 0, 0, 20, 20, ImagenLinea[3] ); 

putimage( 0, 0, ImagenLinea[3], XOR_PUT ); 


En todos los casos se utilizan las funciones malloc e imagesize para pro- 
ceder a la reserva de memoria. La función getimage almacena la imagen de 
la pantalla, mientras que putimage utiliza la opción XOR_PUT para borrar la 
pantalla y dejarla preparada para la siguiente representación. (Consultar el 
capítulo 12 para mayor detalle sobre la manipulación de las imágenes.) 

La función GraficoLineas comprueba los datos para buscar el valor más 
alto de los que vayan a ser representados (MaxVal), mientras que la ventana 
se ajusta de forma que se genere un margen superior para la colocación de 
rótulos, 


void GraficoLineas() 


1 
int AnchoPantalla = getmaxx(), 
AltoPantalla = getmaxy(); 
int Izquierda = 0, Arriba = 0, MaxVal = 0; 
int i, j, PasoHoriz, PasoVert, NumPasosVerts, 
Abajo, X.Y; 


double Escala; 


for( i=0; 1 < 4; 444 ) 
for( ) = 0; ] < 20; j++ ) 
if ( Cantidades[i] [j] > MaxVal ) MaxVal = 
Cantidades[il [j31; 


setviewport( Izquierda, Arriba + 5, Izquierda + 
AnchoPantalla, 
Arriba + AltoPantalla + 5, 0 ); 
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A continuación se produce el ajuste de los pasos horizontal y vertical 


respecto a la resolución de la pantalla actual y a MaxVal. 


Ancho -= 30; 
PasoHoriz = Ancho / 20; 
NumPasosVerts = (MaxVal / 25) + 2; 
PasoVert = Alto / NumPasosVerts; 
Abajo = PasoVert * NumPasosVerts; 


Escala = (double) PasoVert / (double) 25; 


Para separar los años se utiliza una serie de barras verticales, rotulándose 


a continuación cada uno de ellos. 


if ( MaxColores > 4 ) setcolor( GREEN ); 


for ( i=0; i <= PasoHoriz * 32; i += PasoHoriz * 4 ) 
line( i, 0, i, PasoVert * NumPasosVerts ); 


if ( MaxColores > 4 ) setcolor( WHITE ); 
settextjustify( CENTER_TEXT, CENTER_TEXT ); 
settextstyle( DEFAULT_FONT, HORIZ_DIR, 2 ); 
for( 1 = 051 < 5; d4+ ) 
t 
x= i * PasoHoriz * 4 + 2 * PasoHoriz; 
y = PasoVert / 2; 
gprintf£( 8£x, £y, "%d", Anios[il ); 


Luego, se dibuja y rotula un conjunto de barras horizontales, en pasos de 


25, hasta completar la retícula de fondo del gráfico. 


settextstyle( DEFAULT _FONT, HORIZ_DIR, 1 ); 
settextjustify( CENTER_TEXT, CENTER_TEXT ); 
for ( i=0; i <= Abajo; 1 += PasoVert ) 
t 

if ( MaxColores > 4 ) setcolor( BLUE ); 

line( 0, i, PasoHoriz * 20, i ); 

if ( MaxColores > 4 ) setcolor( WHITE ); 

x = PasoHoriz * 20 + 15; 

y = 1; 

gprintf( £x, $y, "%d", 

(( Abajo-i ) / PasoVert ) * 25 

) E 


Cada conjunto de datos se representa por separado, utilizando distintos 


colores y estilos de líneas. Para comenzar la representación es necesario ajus- 
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tar la posición vigente a la primera posición gráfica horizontal (PasoHo- 
riz/2+3) y a la posición vertical (Abajo-Escala*Cantidades[i1[0]+8). Ade- 
más, hay que llamar a la función outtext para la escritura de los rótulos sobre 
la pantalla. A continuación, la posición PV se carga con el valor de las pri- 
mera posición gráfica. 


settextjustify( LEFT_TEXT, TOP_TEXT ); 


for (i= 0; 1i< 4; i++) 
1 


setlinestyle( i, 0, 3); 
if ( MaxColores > 4 ) setcolor( i+2 ); 
moveto( PásoHoriz/2+3, 
Abajo-Escala*Cantidades[i][0] + 8); 
outtext( TiposCant[i] ); 
moveto( PasoHoriz / 2, 
Abajo-Escala * Cantidades[i][0] ); 


La representación comienza centrando la imagen adecuada (el símbolo) en 
la posición de impresión. A continuación se traza una línea hasta la siguiente 
posición gráfica. Una vez terminado el bucle, se añade un símbolo final a la 
última posición representada. 


for (]=1; j < 20; ++ ) 

£ 

putimage( getx() - 10, gety() - 10, 
ImagenLinea[i], XOR_PUT ); 

lineto ( PasoHoriz / 2 + j * PasoHoriz, 
Abajo - Escala * Cantidades[i] [j] ); 

, 

putimage( getx() - 10, gety() - 10, 
ImagenLinea[i], XOR_PUT ); 


Para mostrar la posición de impresión podría utilizarse un punto de tres por 
tres pixels, De esta forma se conseguiría una representación más sencilla. Se 
trata de una opción alternativa a la proporcionada por las funciones putimage. 


for( x= Xx <= 1; x4+ ) 
for( y = -1l; y <= 1l; y++ )- 


putpixel( getx() + x, gety() + y, getcolor() ); 
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qe TODOGRAF.C -- demostración de varios tipos de ef 
5d gráficos AS 


iifdef _ TINY 
fterror La demostración no funciona si se compila en el 
modelo TINY. 


Hendif 


ttinclude <conio.h> 
ttinclude <stdio.h> 
finclude <stdlib.h> 
ttinclude <stdarg.h> 
tiinclude <graphics.h> 
tinclude "gprint.i" 


int ControladorGrafico;  /* controlador del dispositivo 
gráfico */ 

int ModoGrafico; /* valor del modo gráfico */ 

int MaxColores; /* número máximo de colores 

disponible */ 

int CodigoError = 0; /* da cuenta de cualquier error 
gráfico */ 

double FactAsp; /* factor de aspecto de la pantalla */ 

int AnchoX, AlturaY, ProfundidadZ; 

int PasoX, PasoY, PasoZ; 

int MaxX, MaxY; 

int OrigX, OrigY; 

double Escala; 

int Cantidades[4] [9] = 


í 1986, 133, 35, 33, 17, 29, 15, 17, 32, 
1987, 122, 41, 30, 25, 18, 24, 43, 21, 
1988, 111, (65, 57, 14, 17, 39, 32, 17, 
1989, 100, 60, 70, 12, 16, 13, 17, 12 ); 


char *TiposCant [9] = ( " *, "Motor", "Segur", 
"Repr.", "Impu ", "Credi", 
"Neuma", "Pintu", "Otros" Y; 


void Iniciar() 
t /* inicializa el sistema de gráficos 
y da cuenta de cualquier error */ 
int AspX, AspY; 
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ControladorGrafico = DETECT; /* solicita autodetección 
initgraph( SControladorGrafico, K£ModoGrafico, 
"CE NNTCANBGI" );5 
CodigoError = graphresult(); /* resultado del test 
if ( CodigoError != grok ) /* si hay error 
inicializar 
1 
printf(" Error en el Sistema de Gráficos: %sin", 
grapherrormsg( CodigoError ) ); 
exit( 1); 
) 
MaxColores = getmaxcolor() + 1; /* rango máximo 
colores 
getaspectratio( K£AspX, £AspY ); 
FactAsp = (double) AspX / (double) AspY; 
MaxX = getmaxx(); 
MaxY = getmaxy(); 


void Pausa() 


( 


if( kbhit() ) getch(); 
getch(); 


/ *rrerRRR RR DIAGRAMA DE SECTORES *****RRRK% Y 
void GrafSectores( int datos, int x, int y ) 


( 


int i, m= 135, r, 8 = 0, t =0, JustH, Justv; 
int Total = 0; 

int Linealnvisible = 0x0000; 

int CapColor; 

struct arccoordstype Arco; 


for (i=1; i<=8; i++) 
Total += Cantidades [datos] [1]; 
r = Total / 4; 
setlinestyle( USERBIT_LINE, Linealnvisible, 
NORM_WIDTH ); 
setfillstyle( 0, 0 ); 
pieslice( x, Y, M, mel, r+10 ); 
/* debe tener como mínimo un grado de ancho 
getarccoords( Arco ); 
if( MaxColores > 4 ) setcolor( WHITE ); 
settextstyle( SANS_SERIF_FONT, HORIZ_DIR, 2 ); 
settextjustify( RIGHT_TEXT, BOTTOM TEXT ); 


id 


sad 
al 
SA 


de 
$b 


Lita 
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gprintf( £Arco.xend, £Arco.yend, "%d", 
Cantidades[datos] [0] ); 
settextstyle( DEFAULT_FONT, HORIZ_DIR, 1 ); 
if( MaxColores > 4 ) setcolor( EGA_ YELLOW ); 
for (i=1; i<=8; i++) 
t 
setfillstyle( i, i ); 
if( MaxColores > 4 ) setcolor( WHITE ); 
setlinestyle( SOLID LINE, 0, NORM_WIDTH ); 
t += (int) ( 360 * (double) Cantidades[datos] [i] 
/ (double) Total + 0.5 ); 
if (t > 360 ) t = 360; 
e a A A 
pieslice( X, Y, 8, €t, Y); 
setlinestyle( USERBIT_LINE, Linealnvisible, 
NORM_WIDTH ); 
setfillstyle( 0, 0 ); 
CapColor = i+8; 
if ( CapColor > 15 ) CapColor = 7; 
if( MaxColores > 4 ) setcolor( CapColor ); 
mea (t-8)/2+0; 
pieslice( Xx, Y, Mm, m+1l, r+5 ); 
/* debe tener como mínimo un grado de ancho*/ 
getarccoords( K£Arco ); 
if ( Arco.xend > x) JustH = LEFT_TEXT; 
else JustH = RIGHT_TEXT; 
if ( Arco.yend > y) JustV = TOP_TEXT; 
else JustV = BOTTOM_TEXT; 
settextjustify( JustH, JustV ); 
outtextxy( Arco.xend, Arco.yend, TiposCant[i] ); 
s=t; 


DE 


void DibujaGrafSectores() 

t 
intYl1 = getmaxy() * 0.275, 
Y2 = getmaxy() * 0.725; 


cleardevice(); 
graphdefaults(); 

rectangle( 0, 0, MaxX, MaxY ); 
GrafSectores( 0, 150, Y1 ); 
GrafSectores( 1, 450, Y1 ); 
GrafSectores( 2, 150, Y2 ); 
GrafSectores( 3, 450, Y2 ); 
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[ARHRERRAAR GRAFICO BARRAS ****KAHARRY 


void GrafBarras( ) 
( 
int Ancho = MaxX, Alto = MaxY, 
Izquierda = 0, Arriba = 0; 
int i, j, PasoHoriz, PasoVert, Abajo, x, y, 
Altobarra; 


cleardevice(); 
graphdefaults(); 
setviewport( Izquierda, Arriba+5, 
Izquierda+Ancho, Arriba+Alto+5, 
Ancho -= 30; 
PasoHoriz = Ancho/32; 
PasoVert = Alto/6; 
Abajo = PasoVert*6; 
if( MaxColores > 4 ) setcolor( GREEN ); 
for ( i=0; i<=PasoHoriz*32; i+=PasoHoriz*4 ) 
line( i, 0, i, PasoVert*6 ); 
if( MaxColores > 4 ) setcolor( CYAN ); 
for ( i=0; i<=Abajo; i+=PasoVert ) 
line( 0, i, PasoHoriz*32, i ); 
Abajo--=; 
if( MaxColores > 4 ) setcolor( WHITE ); 
settextstyle( DEFAULT_FONT, HORIZ_DIR, 1 ); 
settextjustify( CENTER_TEXT, CENTER_TEXT ); 
for ( 1=0; 1<7; i++ ) 


É 
x = PasoHoriz*32 + 15; 
y = PasoVert*i; 
gprint£( Ex, 8y, "%d", 150-1*25 ); 
J 
for ( i=1; i<=8; i++ ) 
1 


for ( 3=0; j<4; j++ ) 
t 
Altobarra = Abajo - Cantidades[j] [i] 


* (double) PasoVert / (double) 25; 


if( MaxColores > 4 ) setcolor( j+1 ); 


0 


if( MaxColores > 4 ) setfillstyle( i, j+1 ); 


else setfillstyle( i, MaxColores-1 ); 


bar3d( (i-1)*PasoHoriz*4 + j*PasoHoriz + 2, 


Altobarra, 


(i-1)*PasoHoriz*4 + j*PasoHoriz + PasoHoriz-2, 


Abajo, 0, 0 ); 
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) 


) 

if( MaxColores > 4 ) setcolor( WHITE ); 

outtextxy( i*PasoHoriz*4-PasoHoriz*2, 
5, TiposCant[i] ); 


) 
if ( MaxColores > 4 ) 
t 

x = MaxX/2; 

y = MaxY/4; 


settextstyle( DEFAULT_FONT, HORIZ_DIR, 2 ); 
for (i=0; i<4; i++) 
t 
setcolor(i+1); 
gprint£( £x, £y, "%d", Cantidades[i] [0] ); 
x += textwidth(" uE, 
1; 


[ARANA RAR DIAGRAMA DE BARRAS MULTIPLE **********/ 


void MultiGrafBarras( int datos, int izquierda, 


1 


int arriba ) 


int Ancho = MaxX/2; 
int Alto = MaxY/2-13; 
int i, PasoHoriz, PasoVert, Abajo, X, y; 


double Escala; 


setviewport( izquierda, arriba+5, izquierda+Ancho, 
arriba+Alto+5, 0 ); 
Ancho -= 30; 
PasoHoriz = Ancho/8; 
PasoVert = Alto/6; 
Abajo = PasoVert*6; 
Escala = (double) PasoVert / 25; 
if( MaxColores > 4 ) setcolor( GREEN ); 
for ( i=0; i<=PasoHoriz*8; i+=PasoHoriz ) 
line( i, 0, i, PasoVert*6 ); 
if( MaxColores > 4 ) setcolor( CYAN ); 
for ( i=0; i<=Abajo; i+=PasoVert ) 
line( 0, i, PasoHoriz*8, i ); 
if( MaxColores > 4 ) setcolor( WHITE ); 
settextstyle( DEFAULT_FONT, HORIZ_DIR, 1 ) 
settextjustify( CENTER_TEXT, CENTER_TEXT ) 
for ( i=07 1<7; i++ ) 
1 


x = PasoHoriz*8 + 15; 
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y = PasoVert*i; 

gprintf( £x, £y, "%d", 150-1*25 ); 
J 
settextstyle( DEFAULT_FONT, VERT_DIR, 1 ); 
settextjustify( CENTER_TEXT, TOP_TEXT ) 
for ( i=0; i<=7; i++ ) 
Ñ 

if( MaxColores > 4 ) setfillstyle( i+1, i+1 ); 

else setfillstyle( i+1, MaxColores-1 
bar( ¡i*PasoHoriz+2, 
Abajo-Escala*Cantidades [datos] [i+1] 
(1+1) *PasoHoriz-2, Abajo-1 ); 
outtextxy( i*PasoHoriz + PasoHoriz / 2, 5, 
TiposCant [i1+1] ); 
) 
settextstyle( SANS_SERIF_FONT, HORIZ_DIR, 2 ); 
settextjustify( CENTER_TEXT, BOTTOM_TEXT ); 
x = Ancho/2; 
y = Alto/2-4; 
gprintf( £x, £y, "%d", Cantidades[datos] [0] ); 
) 


void DibujaMultiGraf () 
t 
cleardevice(); 
graphdefaults(); 


MultiGrafBarras( 0, 0, 0 Y 
MultiGrafBarras( 1, MaxX/2, 0 ; 
MultiGrafBarras( 2, 0, MaxY/2 ); 


MultiGrafBarras( 3, MaxX/2, MaxY/2 ); 
) 


Poio HA DEMOSTRACION GRAFICO 3-D **RKHAARAA Y 


woid RellenaPlano( int x1, int yl, int x2, int y2, 
int x3, int y3, int x4, int y4, 
int estilo, int color ) 


int Poligono[10]; 


Poligono[0] = Poligono[8] x1; 
Poligono[1] = Poligono[9] = yl; 
Poligono[2] = x2; Poligono[3] = y2; 
Poligono[4] x3; Poligono[5] 
Poligono[6] = x4; Poligono[7] 


"mou 
eo 
E) 
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if ( MaxColores < 4 ) color = MaxColores - 1; 
setfillstyle( estilo, color ); 
fillpoly( 5, Poligono ); 

J 


void GrafCampo() 
1 
int í, 
if ( MaxColores > 4 ) 
ps 
RellenaPlano( OrigX, OrigY, OrigX+AnchoX, OrigY, 
OrigX+AnchoX, OrigY-AlturaY, OrigX, 
OrigY-AlturaY, 
SOLID_FILL, LIGHTBLUE ); 


RellenaPlano( OrigX, OrigY, 
OrigX-(ProfundidadZ/FactAsp), 
OrigY+Profundidadz, 
OrigX-(ProfundidadZ/FactAsp), 
OrigY+ProfundidadZ-AlturaY, 
OrigX, OrigY-AlturaY, 
SOLID_FILL, LIGHTRED ); 


RellenaPlano( OrigX, OrigY, OrigX+AnchoX, OrigY, 
OrigX+AnchoX- (ProfundidadZ/FactAsp), 
OrigY+ProfundidadZ, 
OrigX-(ProfundidadZ/FactAsp), 
OrigY+Profundidadz, 

SOLID_FILL, YELLOW ); 
J 
line( Origx, OrigY, OrigX+AnchoX, OrigY ly /* eje X */ 


line( OrigX, OrigY, OrigX, OrigY-AlturaY ); /* eje Y */ 
line( OrigxX, OrigY, OrigX-Profundidadz/FactAsp, 
OrigY+Profundidadz ); 
/* eje 2 */ 


if ( MaxColores > 4 ) setcolor(GREEN); 
/* posición de las líneas que cortan al eje X */ 
for ( i = OrigX + PasoX; i <= OrigX + AnchoX; 
i += PasoX ) 


line( i, OrigY, i, OrigY-AlturaY ); 
line( i, OrigY, i-ProfundidadZ/FactAsp, 
OrigY+ProfundidadZ ); 
J 
if ( MaxColores > 4 ) setcolor(CYAN); 
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/* posición de las líneas que cortan al eje Y */ 
for ( i = OrigY - PasoY; i >= OrigY - AlturaY; 


i -= PasoY ) 
1 
line( OrigXxX, i, OrigX+AnchoX, i ); 
line( OrigXx, i, OrigX-ProfundidadZ/FactAsp, 
i+ProfundidadZz ); 
) 


if ( MaxColores > 4 ) setcolor(RED); 
/* posición de las líneas que cortan al eje Z */ 
for (i = PasoZ; i <= ProfundidadZ; i += PasoZ) 
t 
line( Origx-i/FactAsp, OrigY+i, 
OrigX-i/FactAsp+AnchoX, OrigY+i ); 
line( OrigxX-i/FactAsp, OrigY+i, OrigxX-i/FactAsp, 
OrigY-AlturaY+i ); 


J 


void Letreros () 
1 


int i, d, k, 1, m 


settextjustify(CENTER_TEXT,CENTER_TEXT); 
j = OrigX + AnchoX + 15; 

1 = OrigX - Profundidadz / FactAsp - 15; 
for ( ¿mlj 4<7) d+. ) 


t 
k = OrigY - i * PasoY; 
gprintf£f( £j, Ek, "%4d", 1*25 ); 
m = OrigY + Profundidadz - i * PasoY; 
gprintf( £l, £m, "%d", 1*25 ); 
J 


if ( MaxColores > 4 ) setcolor(LIGHTBLUE); 
j = OrigXx + 25; 

1 =3j- ( Profundidadz / FactAsp ); 

m = OrigY + ProfundidadZz + 8; 

k = OrigY - AlturaY - 8; 

for ( is1; i<=8; i++ ) 


outtextxy( j, k, TiposCant[il] ); 
outtextxy( 1, m, TiposCant[i] ); 
j += 50; 
1 += 50; 
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) 


if ( MaxColores > 4 ) setcolor(LIGHTGREEN); 


for ( i=0; i<= 
t 

Origx 
OrigY 
=m- Alt 
= j + Anc! 


RABO 


37 1++ ) 


ES 
+ 
uraY; 
hoX; 


1 
i 


* PasoZ + PasoZ / 2 ) 
* PasoZ + PasoZ / 2; 


settextjustify( LEFT_TEXT, TOP_TEXT ); 
, €m, "%4d", Cantidades[i] 
settextjustify( RIGHT_TEXT, BOTTOM_TEXT ); 
, €k, "%4d", Cantidades[il 


gprintf( £l 


gprintf( £j 


void Barra3D( int izquierda, 


t 


int 


int Arriba, De: 
int AnchoBarra 
int FondoBarra 
if ( MaxColore: 
1 

colorl = Ma: 


alto, int 


recha; 
= PasoX / 
= Pasoz / 
s<4) 


xColores - 


color2 = MaxColores - 


ín 


int abajo, 


/ FactAsp + 2; 


[0] ); 


101 ); 


color1, int color2 ) 


setfillstyle( izquierda+1, colorl ); 
izquierda = Origx + ( izquierda * PasoX ) 
( (abajo + 0.75 * Pasoz / PasoX ) 
PasoZ ) / FactAsp ); 
abajo = OrigY + ( ( abajo + 0.75 ) * PasoZ ); 
Derecha = izquierda + AnchoBarra; 


( 


Arriba = abajo 
bar3d( izquier 
RellenaPlano ( 


RellenaPlano( 


- alto; 
da, Arriba, 


Derecha, abajo, 


Derecha, Arriba, 
Derecha+FondoBarra/FactAsp, 
Arriba-FondoBarra, 
Derecha+FondoBarra/FactAsp, 
abajo-FondoBarra, Derecha, 
CLOSE_DOT_FILL, colorl ); 


izquierda, 


Arriba, Derecha, 


Derecha+FondoBarra/FactAsp, 
Arriba-FondoBarra, 

izquierda+FondoBarra/FactAsp, 
Arriba-FondoBarra, 


SOLID_FILL, 


color2 ); 


0, 0); 


abajo, 


Arriba, 


* 
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void PresentaCantidades() 


t 


nt de 


if ( MaxColores > 4 ) setcolor( EGA YELLOW ); 


for (i=1; i<=8; i++) 


Barra3D( i-1, 0, Cantidades[0] 


[i] * Escala, 


LIGHTCYAN, CYAN ); 


for (i=1; i<=8; i++) 


Barra3D( i-1, 1, Cantidades[1] 


[1] * Escala, 


LIGHTRED, RED ); 


for (i=1; i<=8; i++) 


Barra3D( i-1, 2, Cantidades[2] 


[i] * Escala, 


LIGHTBLUE, BLUE ); 


for (i=1; i<=8; i++) 


Barra3D( i-1, 3, Cantidades [3] 


[1] * Escala, 


LIGHTGREEN, GREEN ); 


A 


void GrafBarras3D() 


1 
int *x, y? 


cleardevice(); 


ProfundidadZ = 4 * PasoZ; 


settextjustify( LEFT_TEXT, TOP_TEXT ); 


setcolor( getmaxcolor() ); 
x= 10; y = 10; 
gprintf( £x, £y, "PasoZ = %d", 
GrafCampo(); 
Letreros (); 
PresentaCantidades (); 
Pausa(); 

) 


void Graficos3D() 


( 
cleardevice(); 


graphdefaults(); 
PasoX = MaxX/13; 
PasoY = MaxY/14; 
OrigX = MaxX/3; 


OrigY = MaxY/2; 

AnchoX = 8 * PasoX; 

AlturaY 6 * PasoY; 

Escala = (double) PasoY / 25; 


PasoZ ); 


/* PasoX = 50; 
y* pasoY = 25; 
/* OrigX = 200; 
LE OFÍLGY =. 2005 


1 
*z 
e 
mA 


PANTALLAS DE GRÁFICOS COMERCIALES 149 


for( PasoZ=15; ( OrigY+4*PasoZz ) < MaxY; PasoZ+=5 ) 
GrafBarras3D(); 
) 


[RRRAORRRARA MATN GRAFICOS **RHRKARARARY 


main() 
t 
Iniciar(); /*- pone modo gráfico */ 
DibujaGrafSectores(); 
Pausa(); 
GrafBarras (); 
Pausa(); 
DibujaMultiGraf (); 
Pausa(); 
Graficos3D(); 
closegraph(); /* repone modo texto */ 


a nai 
/*  GRAFLINS.C Ejemplo de DIAGRAMA DE LINEAS usando */ 
/* Gráficos de Turbo-C A 
/*= 
Htifdef __TINY__ 


terror La demostración no funciona si se compiló en el 
modelo TINY. 


nt / 


Htendif 


ttinclude <conio.h> 
ttinclude <stdio.h> 
ttinclude <stálib.h> 
ttinclude <stdarg.h> 
tinclude <graphics.h> 


ttinclude "gprint.i" 


int ControladorGrafico; /* controlador del dispositivo 

gráfico */ 
int ModoGrafico; /* valor del modo gráfico */ 
int MaxColores; /* número máximo de colores 


disponible */ 
int CodigoError = /* variable de error en gráficos */ 


void *ImagenLinea [3 
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int Cantidades[4] [20] = 
( 119, 121, 132, 140, 141, 139), 142, 135, 133, 123, 
121, 120, 124, 111, 109, 119, 122, 132, 140, 142, 
97, 99, 100, 107, 119, 123, 137, 148, 159, 160, 
168, 172, 167, 155, 159, 163, 165, 155, 151, 148, 
59, 73, 66, 49, 40, 39, 41, 45, 46, 52, 
56 B97 607 967 29d, ¿Ea 55 DI 18€ 
AR DD IO O aa 20 ads. 18y,. 197 2d 
24 26, 28, (27) 22, 20, 19/.4237:125, 24-75 


int Anios[5] = ( 1985, 1986, 1987, 1988, 1989 ); 
char *TiposCant[4] = 
( "Industrial", "Electricas", "Petroleos", "Banca" ); 


void Iniciar() /* inicializa el si 
t /* y da cuenta de cualquier error 
ControladorGrafico = DETECT; /* solicita autodetección 
initgraph( £ControladorGrafico, £ModoGrafico, 
"C:¿ANTOANBGI" ); 


CodigoError = graphresult(); /* resultado del test 
if ( CodigoError != grOk ) /* si hay error 
inicializar 
t print£(" Error en el Sistema de Gráficos: %sin" 
grapherrormsg( CodigoError ) ); 
exit( 1); 
) 
MaxColores = getmaxcolor() + 1; 
l 
void Pausa() 
( 
if( kbhit() ) getch(); 
getch(); 
) 
void GraficoLineas() 
1 
int AnchoPantalla = getmaxx(), 
AltoPantalla = getmaxy(); 
int Izquierda = 0, Arriba = 0, MaxVal = 0; 
int i, j, PasoHoriz, PasoVert, NumPasosVerts, 


Abajo, X, Y; 
double Escala; 
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for( ii =0;5 1 <4 is.) 
toi 0; Jj < 20; j++ ) 
if ( Cantidades[il] [j] > MaxVal ) 
MaxVal = Cantidades[i] [jl; 
setviewport( Izquierda, Arriba + 5, Izquierda 
+ AnchoPantalla, Arriba 
+ AltoPantalla + 5, 0 ); 


AnchoPantalla -= 30; 

PasoHoriz = AnchoPantalla / 20; 
NumPasosVerts = ( MaxVal / 25 ) + 2; 
PasoVert = AltoPantalla / NumPasosVerts; 
Abajo = PasoVert * NumPasosVerts; 

Escala = (double) PasoVert / (double) 25; 


if ( MaxColores > 4 ) setcolor( GREEN ); 

for ( i=0; i <= PasoHoriz * 32; i += PasoHoriz * 4 ) 
line( i, 0, i, PasoVert * NumPasosVerts ); 

if ( MaxColores > 4 ) setcolor( WHITE ); 

settextjustify( CENTER_TEXT, CENTER_TEXT ); 

settextstyle( DEFAULT_FONT, HORIZ_DIR, 2 ); 

for( 11207 1 < 5) de. ) 

t 


x i * PasoHoriz * 4 + 2 * PasoHoriz; 
y = PasoVert / 2; 
gprint£( £x, ey, "%d", Anios[il ); 
J 
settextstyle( DEFAULT_FONT, HORIZ_DIR, 1 );5 
settextjustify( CENTER_TEXT, CENTER_TEXT ); 
for (di = 0; i <= Abajo; i += PasoVert ) 
t 
if ( MaxColores > 4 ) setcolor( BLUE ); 
line( 0, i, PasoHoriz * 20, i ); 
if ( MaxColores > 4 ) setcolor( WHITE ); 
Xx = PasoHoriz * 20 + 15; 
y = 1; 
gprint£( £x, Ey, "%d", (( Abajo-i ) / PasoVert ) 
+: 25 le 


settextjustify( LEFT_TEXT, TOP_TEXT ); 
for (1=.07 1. <:47 d++ ) 
1 

setlinestyle( i, 0, 3); 

if ( MaxColores > 4 ) setcolor( i+2 ); 
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moveto( PasoHoriz/2 + 3, 

Abajo - Escala*Cantidades[il] [0] + 8 ); 
outtext( TiposCant [il ); 
moveto( PasoHoriz / 2, 

Abajo - Escala * Cantidades[il [0] ); 


for (Jj = 133 < 20; j++ ) 
t 
putimage( getx() - 10, gety() - 10, 
ImagenLinea[i], XOR_PUT ); 
lineto( PasoHoriz / 2 + j * PasoHoriz, 
Abajo - Escala * Cantidades[i] [j] ); 


/* Crea un 'punto” alrededor de la posición de trazo vi 
ee for( x= -13 x <= 1; x++ ) */ 
pe for( y = “1; y <= 1; y++ ) */ 
Je putpixel( getx() + x, gety() + y, getcolor() );*/ 

y 

putimage( getx() - 10, gety() - 10, ImagenLinea[i], 

XOR_PUT ); 
) 

) 


void CrearImagenes() 
HN 
lor L7 
int Rayo[] = ( 10, 5, 15, 5, 12, 10, 17, 10, 
10, 18, 12, 13, 8, 13, 10, 5); 


setfillstyle( EMPTY_FILL, 0 ); /* fueda */ 
if ( MaxColores > 4 ) setcolor( 2 ); 
for( 1 = 0; d <= 53 i++ ) 

pieslice( 10, 10, i * 60, (i * 60) + 60, 10 ); 
ImagenLinea[0] = malloc( imagesize( 0, 0, 20, 20 ) ); 
getimage( 0, 0, 20, 20, ImagenLinea[0] ); 
putimage( 0, 0, ImagenLinea[0], XOR_PUT ); 


if ( MaxColores > 4 ) setcolor( 3 ); /* Rayo */ 
fillpoly( sizeof( Rayo ) / ( 2 * sizeof( int ) ), 
Rayo ); 


ImagenLinea[1] = malloc( imagesize( 0, 0, 20, 20 ) ); 
getimage( 0, 0, 20, 20, ImagenLinea[1] ); 
putimage( 0, 0, ImagenLinea[1], XOR_PUT ); 
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if ( MaxColores > 4 ) setcolor( 4 ); /* gota de aceite */ 
arc( 10, 10, 105, 360, 8 ); 

ellipse( 0, 5, 300, 90, 8, 3 ); 

ellipse( 3, 10, 0, 90, 16, 8 ); 

setfillstyle( SOLID_FILL, getcolor() ); 

floodfill( 10, 10, getcolor() ); 

ImagenLinea[2] = mallocí imagesize( 0, 0, 20, 20 ) ); 
getimage( 0, 0, 20, 20, ImagenLinea[2] ); 

putimage( 0, 0, ImagenLinea[2], XOR_PUT ); 


if ( MaxColores > 4 ) setcolor( 5 ); /* caja */ 
bar3d( 0, 10, 10, 15, 5, 1) 
ImagenLinea[3] = malloc( imagesize( 0, 0, 20, 20 ) ); 
getimage( 0, 0, 20, 20, ImagenLinea[3] ); 
putimage( 0, 0, ImagenLinea[3], XOR_PUT ); 

) 


main() 
t 


Iniciar(); /* dispone el modo gráfico */ 
CrearImagenes(); 
GraficoLineas(); 


Pausa (); 
closegraph(); /* repone el modo texto */ 


10 


Animación gráfica básica 


La palabra animación podría traer a la memoria las imágenes de los dibujos 
animados de los sábados por la mañana en TV, Quizá nos hayamos fijado en 
la animación publicitaria, donde un computador es capaz de comerse una 
barra de chicle o beberse una bebida carbónica, sin más que destapar una 
botella, Quizá Vd. sea aficionado a las animaciones gráficas donde, por no 
demasiado dinero, formaciones de platillos, ninjas y monstruos se ofrecen en 
combate electrónico, 

Todo es animación generada por un computador, en su totalidad o en parte. 
La animación gráfica, sin embargo, no es un producto de la era del computa- 
dor. Hace aproximadamente un siglo, las cajas de animación combinaban una 
serie de imágenes que generaban un movimiento animado. Las imágenes grá- 
ficas aparecieron en los márgenes de los libros, cuyas páginas eran objeto de 
un rayado que permitía crear una figura en movimiento. La combinación de 
decenas de caricaturas hechas a mano cuidadosamente permitía crear piezas 
maestras que abarcaban desde Coyote y Correcaminos hasta Fantasía. 

Hoy, gran parte de los productos de animación de caricaturas se efectúa a 
través de programas gráficos de computador. Sin embargo, los procesos utili- 
zados para la animación se pueden catalogar en dos tipos: las imágenes com- 
binadas y las imágenes morfológicas. 

Las imágenes combinadas se construyen con secciones de imágenes guar- 
dadas en bibliotecas, como es el caso del programa de demostración ANIMA- 
DO!1.C. En este ejemplo de demostración, "Manolo" surge de las imágenes de 
una cabeza y de un torso. Esta imagen se almacena y sirve de referencia para 
la creación de una segunda imagen con un brazo moviéndose hacia delante y 
otro hacia atrás. Por combinación de estas imágenes elementales, Manolo es 
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capaz de callejear a través del laberinto, moviendo sus brazos mientras camina 
en un proceso de animación gráfica moderadamente convincente. 

Otras acciones más complejas, tales como recoger un objeto o dar un gran 
salto necesitan un conjunto diferente de imágenes. El programa que permite a 
Manolo caminar sigue un juego muy elemental de órdenes y réplicas. 

El segundo tipo de animación es la imagen morfológica: la imagen se 
origina en respuesta a un conjunto de órdenes de programación, en lugar de 
ser seleccionada de una pila de imágenes almacenadas. En la segunda demos- 
tración de imágenes animadas, ANIMADO2.C, tendremos una figura alargada 
elemental (limitada a una cabeza y dos piernas) que caminará sobre un plano 
desordenado. Sin embargo, en lugar de utilizar una serie de imágenes, cada 
figura se creará mediante un conjunto elemental de enlaces que describirán un 
esqueleto básico con puntos articulados, cada uno de los cuales seguirá un 
conjunto limitado de reglas de respuesta. 

En realidad, esta figura es un robot que puede caminar sin desplomarse. 
Samuel Johnson dijo una vez sobre los perros danzarines: "La fascinación no 
consiste en que esté bien hecho, sino en que pueda llevarse a cabo”. Esto 
mismo es aplicable a un robot (que camina, aunque no lo haga bien). 

A diferencia de las imágenes pregrabadas, la imagen del robot puede reci- 
bir Órdenes que le permitan dar respuestas en distintas situaciones y generar 
imágenes que se adapten a distintas circunstancias. Sin embargo, hay incon- 
venientes. El programador deberá crear árboles de decisión y bucles que per- 
mitan su adaptación a circunstancias cambiantes. Además, los cálculos nece- 
sarios para la ubicación de cada imagen son más amplios que aquellos que tan 
sólo sirven para ubicar la imagen en su posición correcta de la pantalla. 


Animación de imágenes 


En función de la tarjeta gráfica instalada en el hardware, el sistema puede que 
admita dos o más páginas de memoria de vídeo; la página cero se utiliza por 
omisión, tanto para la pantalla visual, como para las operaciones en modo 
gráfico. En Turbo C++, las funciones setvisualpage y setactivepage permiten 
el acceso a las páginas alternativas de vídeo, si el hardware las admite. La 
función setactivepage selecciona la página gráfica de vídeo de la que se to- 
marán los datos que se escriban por medio de las distintas operaciones gráfi- 
cas. La función setvisualpage marca la página gráfica que se visualizará en un 
momento dado. 

Recuerde que la página activa y la página visual no tienen por qué ser 
necesariamente la misma. Las operaciones gráficas pueden efectuarse sobre 
cualquier página, esté visualizándose o no. Además, cualquier página permi- 
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tida puede convertirse en la página visible, instantáneamente. El tiempo nece- 
sario para conmutar de una página visual a otra es inferior a 1/50 segundos 
(fracción que puede variar en función de las prestaciones del sistema). 

El programa de demostración ANIMADO1.C comienza con el cambio de 
la página gráfica activa (suponiendo que la tarjeta gráfica en cuestión permita 
albergar distintas páginas de vídeo), para ponerse "detrás del telón" y crear 
una serie de imágenes que están fuera del alcance de la vista. Una vez reali- 
zado esto y suponiendo que nuestro actor está dispuesto, la página gráfica 
activa se hace coincidir con la página visual activa. En este momento aparece 
un laberinto, con Manolo en la esquina superior izquierda. Llegados a este 
punto, los controles del cursor (o el ratón) permiten a Manolo caminar a través 
del laberinto, 

Este caso no es el de una imagen despazada a través de la pantalla. Dado 
que Manolo puede moverse en distintas direcciones, la imagen se anima to- 
mando como base tres posturas diferentes; así se genera el efecto de un hom- 
bre caminando, como se ha visto anteriormente. Dado que estas operaciones 
se efectúan muy deprisa, la utilización de la función delay permitirá la ralen- 
tización de la acción sobre la pantalla, De esta forma se simulará mucho mejor 
el efecto de un paseo normal. El programa comienza definiendo las direccio- 
nes del movimiento: 


itdefine DERECHA 
itdefine IZQUIERDA 
fidefine ARRIBA 
iidefine ABAJO 


NRO 


Un segundo conjunto controla las posturas de Manolo, a medida que éste 
se mueve: 


Htdefine NOPASO 0 
tidefine PASOIZ 1 
iidefine PASODER 2 


Para el tratamiento de las imágenes gráficas harán falta dos arrays de 
punteros: 


void *Destello[3]; 
void *Hombre[4] [3]; 


El primer array (Destello) se utiliza para adoptar una respuesta visual 
cuando Manolo choca contra algo, mientras que el segundo array (Hombre) 
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proporciona tres posturas diferentes de Manolo, con la vista puesta en cuatro 
direcciones. 

El programa comienza utilizando la función Iniciar para activar el modo 
de la pantalla gráfica; a continuación, dado que la creación de imágenes ne- 
cesita de algunos segundos, escribirá un mensaje sobre la pantalla, antes de 
llamar a la función setactivepage para conmutar a una página alternativa de 
vídeo (que se convertirá, a la postre, en la página activa). 


main () 

y 
Iniciar(); /* activa el modo gráfico */ 
outtextxy(10, 10, "Un Momento, Por Favor 
setactivepage(1); 


Si el hardware en cuestión no admite páginas alternativas de vídeo, la 
orden de selección no tendrá ningún efecto y las imágenes gráficas se visua- 
lizarán durante su construcción. El tiempo necesario es el mismo en cualquier 
caso, pero es mejor dejar que el desfile de tuercas y articulaciones trabaje 
fuera del alcance de la vista. Si Vd. tiene curiosidad puede dar origen a una 
sección que permita la creación de la imagen vista desde la planta. 

La función Crearlmagen construirá las imágenes gráficas que vayan a uti- 
lizarse; a continuación, la página de vídeo activa se convertirá en la página 
utilizada por omisión; por último, se borrará la pantalla. Como alternativa, la 
página gráfica visual podrá hacerse coincidir con la página de vídeo activa por 
medio de la función setvisualpage. El resultado deberá ser el mismo, 


CrearImagen(); 
setactivepage(0); 
clearviewport (); 


El laberinto ya se ha creado en la pantalla; el juego comienza inmediata- 
mente. 


CrearLaberinto(); 
ComenzarJuego(); 


La función Borrarlmagen permite liberar la memoria reservada para la 
imágenes gráficas antes de abandonar el juego. En esta aplicación en particu- 
lar, la liberación de memoria no es necesaria, ya que la finalización del pro- 
grama se cuida de ello, aunque no deja de ser una buena práctica disponer de 
un módulo de tratamiento de memoria propio. 
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BorrarImagen(); 
closegraph(); 
J 


Crearlmagen 


Esta función crea y guarda una seria de imágenes gráficas, comenzando con 
una serie de arrays de enteros (destello y Hébrazo_%f) que describen los 
elementos utilizados en las imágenes. 


void CrearImagen() 
t 
int i, j, MaxColor = getmaxcolor(); 
int Destello1[] = f 100, 40, 110, 60, 100, 70, 120, 65, 
140, 80, 130, 60, 140, 50, 120, 65, 
100, 40 >; 
int Destello2[] = f 120, 40, 110, 55, 90, 60, 110, 65, 
120, 80, 130, 65, 150, 60, 130, 65, 
120, 40 ); 
int Destello3[] = ([ 140, 40, 130, 60, 140, 70, 120, 65, 
100, 80, 110, 60, 100, 50, 120, 55, 
140, 40 ); 
int BrazolzqgAtras![] = ( 100, 62, 102, 68, 105, 70, 
108, 69, 109, 65 ); 
4 140, 62, 143, 52, 130, 47, 
125, 52 ); 


int BrazolzqgAdelante[] 


int BrazoDerAtras[] = ( 121,145, 128,147, 130,150, 
129,153, 125,154 ); 
int BrazoDerAdelante[] = f 117,176, 106,176, 100,165, 


107,160 Ys 


La función randomize proporciona el punto de arranque del generador de 
números aleatorios. Luego, se procede a la selección aleatoria del color de 
dibujo, del estilo de relleno y del color de relleno para cada una de las imá- 
genes de destellos. 


randomize(); 
setcolor( random( MaxColor ) + 1 ); 
setfillstyle( random(11) + 1, random ( MaxColor ) + 1 ); 


La imagen inicial (véase la Figura 10-1) consta de cuatro elipses. La cabe- 
za es una elipse con un radio vertical de 12 unidades y un radio horizontal de 
ocho. Cada hombro es una elipse con un radio vertical de ocho y un radio 
horizontal de 12, con los centros desplazados en cuatro pixels a la izquierda 
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Figura 10-1 Animación básica de figuras - Imagen inicial 


Esta imagen inicial consta de cuatro elipses. La cabeza es una elipse con un radio vertical de 
12 unidades y un radio horizontal de ocho, Cada hombro es una elipse con un radio vertical 
de ocho unidades y un radio horizontal de 12, con los centros desplazados en cuatro pixels a 
la izquierda y a la derecha. Por último, la nariz es una elipse más pequeña, con-un radio 
vertical de cuatro y un radio horizontal de dos 


Esta imagen se invertirá (de arriba abajo) pero, en lugar de rotar a izquierda y derecha las 
imágenes faciales, éstas deberán crearse por transposición de las coordenadas de los ejes y 
de los radios. Ademas, deberá utilizarse el factor de aspecto para ajustar la resolución X/Y. 


y a la derecha. Por último, la nariz es una pequeña elipse con un radio vertical 
de cuatro y un radio horizontal de dos. 

Esta imagen puede invertirse (de arriba abajo) para crear una imagen vista 
desde arriba. En lugar de rotar a izquierda y derecha las imágenes faciales, 
deberá llevarse a cabo una transposición de las coordenadas de los ejes y de 
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los radios; además, deberá utilizarse el factor de aspecto visual para ajustar la 
resolución X/Y. 

En el momento de llamar a la función fillpoly, no es necesario conocer el 
tamaño del array de enteros que define cada polígono, ya que el tamaño que 
se pasa a fillpoly se calcula como sizeof (destello) dividido por el doble de 
sizeof (int); esto se debe a que cada punto de un polígono necesita dos valores 
enteros para su concreción. 


fillpoly( sizeof( Destello1 )/( 2 * sizeof( int ) ), 
Destello1); 


La función Guardarlmagen se describirá más adelante pero, dicho breve- 
mente, devuelve un puntero a una imagen de memoria. Los cuatro parámetros 
describen la coordenadas de pantalla de la imagen que va a guardarse. 


Destello[0] = GuardarImagen( 100, 40, 140, 80 ); 


En esencia, esta misma secuencia de operaciones se repite para los arrays 
destello2 y destello3. 

La imagen de Manolo comienza con una serie de elipses que permiten 
crear dos cabezas con nariz y hombros; una de las cabezas tiene como eje 
largo el horizontal; la otra, el vertical. La función floodfill rellena las imáge- 
nes con SOLID_FILL para las cabezas y con HATCH_FILL para los hom- 
bros. 


setcolor( MaxColor ); 

setfillstyle( SOLID _FILL, MaxColor ); 
ellipse( 120, 60, 0, 360, 10, 10 ); 
floodfil1( 120, 60, MaxColor ); 
ellipse( 220% ME Dina id 7d 
floodfil1( 220, 160, MaxColor ); 
ellipse( La BL O AOS 
ellipse( 207, 160, 90, 270, 3, 
setfillstyle( HATCH_FILL, MaxColor ); 
ellipse( 128, 60, 270. 90, 12, 6) 
floodfill( 135, 60, MaxColor ); 
ellipse( 112, 50, 90, 270, 12, 6 )1 
floodfil1( 105, 60, MaxColor ); 
ellipse( 220, 154, 0, 180, 8, 9); 
flooáfill( 220, 150, MaxColor ); 
ellipse( 220, 166, 180, 360, 8, 9.7 
floodfi11( 220, 170, MaxColor ); 


vw 
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En lugar de duplicar esfuerzos para dibujar cabezas distintas que miren a 
izquierda, derecha, arriba y abajo puede llevarse a cabo la proyección de 
imágenes ya existentes, pixel a pixel, y así crear sus imágenes simétricas. 


for ( i=100; i<=145; i++) 
for ( j= 45; j<= 70; j++) 
putpixel( 345-i, 120-3, getpixel( i, j ) ); 


for ( 1=204; ¿<=235; 1++) 
for ( j=145; j<=175; j++) 
putpixel( 345-i, j, getpixel( i, j ) ); 


Los cuatro productos finales se guardarán como imágenes individuales. 


Hombre [ARRIBA] [NOPASO] = 
GuardarImagen( 100, 45, 140, 70); 
Hombre [ABAJO] [NOPASO] - 


GuardarImagen( 205, 50, 245, 75); 
Hombre [IZQUIERDA] [NOPASO] = 
GuardarImagen( 203, 140, 234,180); 
Hombre [DERECHA] [NOPASO] 2 
GuardarImagen( 111, 140, 142,180); 


En los procesos explicados anteriormente se llegaron a crear cuatro imáge- 
nes estacionarias. Ahora dos de éstas serán la base del resto de ellas, sin más 
que añadir los brazos a los cuerpos (vea la Figura 10-2). En la Figura 10-2 se 
añaden brazos a la figura inicial, a continuación la imagen sufre una rotación 
hacia arriba/abajo y a la derecha/izquierda para crear dos pares de imágenes 
en movimiento. La imagen que contiene la cara que mira a la derecha/izquier- 
da aparecerá con los brazos incorporados y sufrirá la misma transformación 
de pixels. 

El resultado final estará formado por 12 imágenes en grupos de tres (esta- 
cionario, brazo derecho adelante, izquierdo adelante), que se mueven por el 
laberinto con la vista puesta en cuatro direcciones (arriba, derecha, izquierda 
y abajo). 

Esta animación es muy elemental y demuestra completamente los princi- 
pios básicos necesarios para la realización de procesos más elaborados. El 
estilo de relleno se carga con el valor CLOSE_DOT_FILL, mientras que la 
llamada a la función fillpoly permite añadir dos brazos a la imagen. 


setfillstyle( CLOSE_DOT_FILL, MaxColores ); 
putimage( 100, 45, Hombre[ARRIBA] [NOPASO], COPY_PUT ); 


ANIMACIÓN GRÁFICA BÁSICA 163 


fillpoly( sizeof( BrazolzgAtras )/ 
(2 * sizeof(int) ), BrazolzgAtras ); 


fillpoly( sizeof( BrazolzgAdelante )/ 
(2 * sizeof (int) ), BrazolzgAdelante ); 
putimage( 100, 45, Hombre[ARRIBA] [NOPASO], OR_PUT ); 


Figura 10-2 Animación básica de figuras - Imagen secundaria 


La imagen inicial va a modificarse para incorporar loy brazos. uno con un cierto balanceo 
hacia adelante y el otro hacia atrás, al igual que hacen las personas al andar. El siguiente 
paso consistirá en rellenar las imágenes de los brazos antes de invertir la imagen secundaria 
(de arriba abajo) y conseguir que se vea desde arriba. Las imágenes faciales que se consiguen 
en las posiciones izquierda y derecha se generan de la misma manera. 
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Observe que putimage se llama por dos veces; la primera vez con la opción 
COPY_PUT y la segunda con la opción OR_PUT. El uso de COPY PUT 
permite la escritura de la imagen sobre la pantalla, reemplazando cualesquiera 
pixels que existieran previamente en esas mismas posiciones. A continuación, 
se utiliza la función fillpoly para incorporar los brazos como nuevos elemen- 
tos de imagen. 

Sin embargo, existe un problema menor derivado del uso de la función 
fillpoly (vea la Figura 10-3), La función fillpoly no hace un seguimiento de 
los contornos que existen en la figura cuando se añade el patrón de relleno. 
En cambio, calcula el área asumiendo una línea entre el primer punto dibujado 
y el último, procediendo al relleno del área encerrada dentro del polígono. 
Este también forma parte de la imagen original (esto no es lo que se desea). 
El sombreado de los brazos de Manolo (Figura 10-3) muestra el área de la 
imagen original que se reescribirá con fillpoly. En lugar de intentar cerrar el 
polígono evitando la reescritura, la función putimage permite la restitución de 
los pixels reescritos, si se llama una segunda vez con el parámetro OR_PUT. 

La primera llamada a putimage podría haberse evitado, puesto que no tiene 
ningún efecto sobre las operaciones que lleva a cabo fillpoly; la última llama- 
da a putimage provocará la inserción de las imágenes de la cabeza y el cuerpo. 
La primera llamada, sin embargo, permitió delinear correctamente los brazos 
y se incluyó en el código de instrucciones para permitir el examen de los 
resultados producidos por la interacción con fillpoly. 

Llegados a este punto, la imagen tiene un brazo delante del cuerpo y el 
otro desplazado hacia atrás. En este momento se llevará a cabo su transposi- 
ción para crear las otras tres imágenes: una mirando también hacia arriba pero 
con los brazos en posiciones inversas y las otras dos mirando hacia abajo con 
los brazos izquierdo y derecho hacia delante y atrás, respectivamente. 


for ( 1=100; i<=145; 4++) 
for ( j= 45; j<= 70; j++) 


t 
putpixel( 345-i, Jj, getpixel( i, j) ); 
putpixel( 345-i, 220-j, getpixel( i, j ) ); 
putpixel ( i, 220-3j, getpixel( i, j ) ); 
J 


Las cuatro imágenes finales se guardarán de forma individual. 


Hombre [ARRIBA] [PASOIZ] = Guardarimagen( 100, 45,145, 70); 
Hombre [ARRIBA] [PASODER] = GuardarImagen( 200, 45,245, 70); 
Hombre [ABAJO] [PASOIZ] GuardarImagen( 100,150,145,175); 
Hombre [ABAJO] [PASODER] GuardarImagen( 200,150,245,175); 
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Figura 10-3 Animación básica de figuras - Imagen secundaria 


La función fillpoly resulta muy apropiada para la creación de los brazos de la imagen ... pero 
eso lleva consigo un pequeño problema, puesto que filipoly no tiene en cuenta los límites 
existentes. Por ello se dibuja el área del polígono completo mientras parte de las imágenes 
que componen los hombros sufren reescritura y necesitan ser restituídas antes de completar 
la imagen. 


A continuación, se repite el mismo proceso con la imagen facial orientada 
a la izquierda: se añaden los brazos y el resultado se transpone de tres mane- 
ras para crear el grupo de imágenes. 


putimage( 100, 140, Hombre [IZQUIERDA] [NOPASO], 
COPY_PUT ); 
fillpoly( sizeof( BrazoDerAtras )/ 
(2 * sizeof(int) ), BrazoDerAtras ); 
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fillpoly( sizeof( BrazoDerAdelante )/ 

(2 * sizeof(int) ), BrazoDerAdelante ); 
Pputimage( 100, 140, Hombre[IZQUIERDA] [NOPASO], OR_PUT ); 
for ( i=100; i<=132; i++) 

for ( j=144; j<=177; j++) 

t 
putpixel( 345-i, j, getpixel( i, j ) ); 
putpixel( 345-i, 220-j, getpixel( i, j ) ) 
putpixel ( i, 220-3], getpixel( i, j ) ) 

) 


Hombre [IZQUIERDA] [PASODER] = 
GuardarImagen( 100, 144, 132,177); 
Hombre [IZQUIERDA] [PASOIZ] = 
GuardarImagen( 100, 43, 132, 76); 
Hombre [DERECHA] [PASOIZ] = 
GuardarImagen( 213, 43, 245, 76); 
Hombre [DERECHA] [PASODER]  = 
GuardarImagen( 213, 144, 245,177); 


GuardarImagen 


La llamada a esta función se lleva a cabo con cuatro parámetros que definen 
las esquinas de un rectángulo de la pantalla. Guardarlmagen utiliza la función 
imagesize para calcular la memoria necesaria y malloc para reservar memoria 
para el área de la imagen especificada, asignando además un puntero local 
(Imagen) a la posición de memoria. 


void *GuardarIimagen (int izquierda, int arriba, 
int derecha, int abajo) 
y 
void *Imagen; 
Imagen = malloc (imagesize (izquierda, arriba, 
derecha, abajo)); 


La función getimage transfiere la imagen de la pantalla al área de memoria 
apuntada por Imagen; a continuación, putimage utiliza la opción XOR_PUT 
para borrar la imagen de la pantalla y por último, el puntero de la imagen se 
devuelve a la función que hace la llamada. 


getimage (izquierda, arriba, derecha, abajo, Imagen); 
putimage (izquierda, arriba, Imagen, XOR_PUT); 
return (Imagen); 
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En este punto se ha producido la reserva de memoria para la imagen grá- 
fica, se ha escrito en esta posición de memoria la información de la imagen y 
se ha devuelto a la función de llamada un puntero a aquella posición con 
objeto de ser asignado a la variable puntero adecuada (por lo que el puntero 
local Imagen puede olvidarse). 


CrearLaberinto 


Esta función escribe un laberinto sobre la pantalla. Los elementos de los 
laberintos son series de pares de puntos guardados en arrays de enteros. 


void CrearLaberinto() 

t 
int, i, J; 
int Laberinto1[] = (200, 40, 50, 40, 50, 160, 100,160); 
int Laberinto2[] = (100, 80, 100, 120,200,120,200,240); 


int Laberinto16[] (550, 120, 550, 200, 450, 200, 
450, 280, 550, 280); 
int Laberinto17[] = (550, 240, 600, 240); 


struct viewporttype VentanaGrafica; 


Los datos de un laberinto podrían obtenerse de un archivo externo o bien 
ser generados por un algoritmo. Con objeto de la demostración es mucho más 
fácil proporcionar los datos como se ha visto. 

La ventana gráfica se convierte en pantalla completa (en este caso, se 
asumen resoluciones de tipo EGA o superiores) y se escribe una pequeña 
instrucción en la parte inferior, 


setcolor ( MaxColores - 1 ); /* Pone color blanco */ 

setviewport (0,0,639,349,1); 

settextstyle ( DEFAULT_FONT, HORIZ_DIR, 1 ); 

outtextxy ( 20, 330, "Use Flechas para mover a 'Manolo' 
o <F>in para terminar el programa"); 


Ahora se reduce el tamaño de la ventana y se dibuja un borde alrededor 
del área. 


setviewport (0,0,600,320,1); 
setlinestyle (SOLID_LINE, 0, NORM_WIDTH ); 
getviewsettings ( SVentanaGrafica ); 
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rectangle (0, 0, VentanaGrafica.right - 
VentanaGrafica.left, 
VentanaGrafica.bottom - 
VentanaGrafica.top ); 


El paso final consiste en dibujar las paredes del laberinto y añadir los 
rótulos a los puntos de comienzo y fin. 


outtextxy( 10, 20, "SALIDA" ); 

drawpoly( sizeof( Laberintol )/( 2 * sizeof (int) ), 
Laberintol ); 

drawpoly( sizeof( Laberinto2 )/( 2 * sizeof(int) ), 
Laberinto2 ); 


drawpoly( sizeof( Laberinto16 )/( 2 * sizeof (int) ), 
Laberinto16 ); 

drawpoly( sizeof( Laberinto17 )/( 2 * sizeof(int) ), 
Laberinto17 ); 

outtextxy( 550, 300, "FINAL" ); 


En este caso, se utiliza la función drawpoly en vez de fillpoly porque sólo 
deseamos líneas, sin añadir relleno. La operación es idéntica a la que se 
describe en la función Crearlmagen. 

No hace falta guardar información sobre la construcción del laberinto ni 
sobre la posición de los muros; el programa no va a depender de ninguno de 
ellos para evolucionar. En cambio, será necesario examinar la imagen de la 
pantalla con objeto de decidir si los movimientos son o no válidos. 


ComenzarJuego 


Ha llegado el momento de controlar el juego; éste comienza con la función 
ComenzarJuego. En un primer momento, ComenzarJuego llama a Sacarlma- 
gen para situar a Manolo sobre la pantalla, en sus coordenadas de comienz 
luego lee el teclado (o el ratón) para dirigir los movimientos de Manolo sobre 
la pantalla. Como entrada sólo se admitirán cinco teclas: las teclas de flechas 
ARRIBA, ABAJO, DERECHA e IZQUIERDA y F para finalizar. 


void ComenzarJuego() 
1 

char Tecla; 

int Fin = 0; 
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Mov = UltMov = DERECHA; 
SacarImagen[ NOPASO ); 


La variable Fin se ha iniciado a cero (equivalente al falso booleano). El 
bucle while continúa hasta que Fin sea cierto. 


while ( !Fin ) 


e 
Tecla = getch(); 
if ( Tecla == 0x00 ) 
1 


Si la primera de las teclas leídas es un NULL entonces se ha pulsado una 
de las teclas de función, en cuyo caso se procede a la lectura del código de 
un segundo carácter para saber a qué tecla corresponde. Las cuatro teclas 
asociadas a las flechas (teclas del cursor) controlan los movimientos de Ma- 
nolo. Todas ellas llaman a la función Desplazarlmagen con la dirección ade- 
cuada como parámetro. 


Tecla = getch(); 
switch (Tecla) 


t 
case 'M' : Desplazarimagen( DERECHA ); break; 
case 'K” : DesplazarIimagen( IZQUIERDA ); break; 
case 'H' : DesplazarImagen( ARRIBA ); break; 
case 'P” : DesplazarImagen( ABAJO ); break; 
J 
) 


Tanto F como f se admiten como entradas válidas. Si se incrementa Fin, 
entonces esta variable se convierte en un valor booleano cierto, y el bucle 
while termina. 


else if (Tecla == 'F' || Tecla == 'f') Fin++; 
du 


DesplazarImagen 


La función Desplazarlmagen se llama con el argumento siguientepaso, que 
indica la dirección de movimiento de Manolo. Primero se llama a Sacarlma- 
gen con el fin de borrar la imagen de la pantalla. La variable Mov, que 
controla la dirección y selecciona el grupo de imágenes que se van a utilizar, 
toma como valor siguientepaso. A continuación se produce la llamada a Sa- 
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carlmagen para volver a poner a Manolo sobre la pantalla, pero con la mirada 
puesta en la dirección correcta. 


void DesplazarImagen( int siguientepaso ) 


t 
int i, MalPasoX, MalPasoY, PasoX, PasoY, 
DestelloX, DestelloY; 


SacarImagen( NOPASO ); 
Mov = siguientepaso; 
SacarImagen( NOPASO ); 


Antes de hacer las dos llamadas a Sacarlmagen, puede que Manolo ya 
estuviera orientado en la misma dirección en la que lo estará tras las llamadas, 
pero en vez de proceder al examen de la dirección es más sencillo borrar la 
imagen existente y luego restituir la imagen deseada. 

La dirección del movimiento indica los valores que deben cargarse en las 
variables MalPasoX, MalpasoY, PasoX, PasoY, DestelloX y DestelloY por si 
fueran necesarias posteriormente. Sin embargo, es mucho más fácil utilizar 
una sentencia switch para asignar las seis variables; de esta forma se seleccio- 
nan las direcciones adecuadas y luego ya no es necesario preocuparse de nada. 


switch( Mov ) 


1 
case DERECHA: MalPasoX = 5; MalPasoY 0; 
PasoX = 5; PasoY = 0; 
DestelloX = 5; DestelloY = 0; 
break; 
case IZQUIERDA: MalPasoX = -5; MalPasoY 0; 
PasoX = -5; PasoY $ 
DestelloX = ; DestelloY = 0; 
break; 
case ARRIBA: MalPasoX = 0; MalPasoY = -5; 
PasoX = ; PasoY 
DestelloX = 0; DestelloY = 2; 
break; 
case ABAJO: MalPasoX = 4 MalPasoY = 5; 
PasoX = 0; PasoY = 4; 
DestelloX = 0; DestelloY = 0; 
break; 
) 


La llamada a la función ExamenMovimiento decide si Manolo puede mo- 
verse en la dirección solicitada. 
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if ( !ExamenMovimiento() ) 
1 


Si ExamenMovimiento devuelve un valor booleano falso, entonces Sacarl- 
magen borra la imagen estacionaria, incrementa la posición en la cantidad 
MalPasoX o MalpasoY (uno de ellos es siempre cero), coloca la imagen ani- 
mada (PASOIZ) sobre la pantalla, y llama a ImagenDestello. 


SacarImagen( NOPASO ); 

PosX MalPasoX; 

PosY MalPasoY; 

SacarImagen( PASOIZ ); 

ImagenDestello( PosX + DestelloX, PosY + DestelloY ); 


En este momento, la imagen PASOIZ se borra, las coordenadas posiciona- 
les recobran sus valores previos y la imagen NOPASO se restituye. 


SacarImagen( PASOIZ ); 
PosX -= MalPasoX; 
PosY -= MalPasoY; 
SacarImagen( NOPASO ); 


De esta forma, Manolo avanza medio paso hacia delante y choca contra la 
pared del laberinto. Las estrellas centelleantes se superponen de la forma en 
que lo hacen en las caricaturas (con efectos sonoros) y, por último, Manolo 
vuelve sobre sus pasos y espera la siguiente instrucción. 

Si ExamenMovimiento devuelve cierto, entonces Manolo tiene permiso 
para moverse hacia delante, Esta acción comienza con el borrado de la imagen 
estacionaria (NOPASO) y con el incremento de las coordenadas de posición, 


else 

t 
SacarImagen(í NOPASO ); 
PosX += PasoX; 
PosY += PasoY; 


Para simular el efecto de movimiento de la forma más suave posible, se 
procede al examen del último movimiento de Manolo (UliMov) para decidir 
qué pie debe ponerse delante, En este punto, los pies de Manolo no llegan a 
verse en ningún momento, sólo se ve la ilusión de balanceo de sus brazos a 
medida que camina. Si la secuencia de sus movimientos no estuviera coordi- 
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nada, el resultado no sería agradable a la vista. Dado que UltMov será 1 6 2 
(PASOIZ o NOPASO), sólo hará falta un sencillo examen booleano. 


if( UltMov != PASOIZ ) 
pe 


Cada vez que se pulsa una tecla de desplazamiento del cursor (o el ratón 
envía una señal equivalente), Manolo avanza varios pasos sobre la pantalla. 
En lugar de escribir las instrucciones necesarias para realizar cada paso de 
forma individual, se utilizará un bucle que hará las llamadas a través de la 
función DaUnPaso para que Manolo camine hacia delante, dando su último 
paso de la misma forma que el primero, y finalizando en la posición estacio- 
naria NOPASO., 


for ( i=1lj i<=2; i++) 

t 
DaUnPaso( PasoX, PasoY, PASOIZ ); 
DaUnPaso( PasoX, PasoY, NOPASO ); 
DaUnPaso( PasoX, PasoY, PASODER ); 
DaUnPaso( PasoX, PasoY, NOPASO ); 

) 

DaUnPaso( PasoX, PasoY, PASOIZ ); 

SacarImagen ( NOPASO ); 

delay ( Pausa ); 


s variables PasoX y PasoY han recibido ya los desplazamientos adecua- 
dos en la dirección del movimiento (Mov). Cada llamada a DaUnPaso ubica 
la imagen adecuada sobre la pantalla, espera un momento, borra la imagen, y 
luego incrementa las coordenadas de posición. 

Si UliMov valiera PASOIZ, entonces Manolo ejecutaría la misma secuen- 
cia de operaciones con PASODER. 


else 
t 
for ( i=1; i<=2; i++ ) 
( 
DaUnPaso( PasoX, PasoY, PASODER ); 
DaUnPaso( PasoX, PasoY, NOPASO ); 
DaUnPaso( PasoX, PasoY, PASOIZ ); 
DaUnPaso( PasoX, PasoY, NOPASO ); 
) 
DaUnPaso( PasoX, PasoY, PASODER ); 
SacarImagen( NOPASO ); 
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delay( Pausa ); 
) 


La función ExamenMovimiento es el mecanismo clave de decisión en este 
juego. Se encarga de leer los pixels de la pantalla en la dirección que se 
solicita para decidir si Manolo puede moverse libremente. La orden switch 
(Mov) decide qué examen hay que realizar con la dirección seleccionada. 


int ExamenMovimiento () 
t 
int i; 


Puesto que las coordenadas PosX/PosY se encuentran en la esquina supe- 
rior izquierda de la imagen, es necesario examinar diferentes desplazamientos 
y rangos para cada dirección. El examen, en sí, es muy sencillo: si cualquiera 
de los pixels examinados es distinto de cero (BLACK), entonces se devuelve 
inmediatamente el valor cero (FALSO). La función termina con la devolución 
de un resultado falso. 


switch( Mov ) 
1 
case DERECHA : for ( i= PosX+47; i <= PosX+96; i++ ) 
if ( getpixel( i, PosY+5 ) ) 
return( 0 ); break; 
case IZQUIERDA: for ( i = PosX; i >= PosX-50; i-- ) 
if ( getpixel( 1, PosY+5 ) ) 
return( 0 ); break; 
case ARRIBA + for ( 1 = PosY; i >= PosY-40; 1-- ) 
if ( getpixel( PosX+5, i ) ) 
return( 0 ); break; 
case ABAJO + for ( 1 = PosY+37; i <= PosY+76; i++ ) 
if ( getpixel( PosX+5, i ) ) 
return( 0 ); break; 


Si el examen seleccionado encuentra pixels distintos del valor BLACK, 
entonces se devuelve un uno (VERDAD) y Manolo puede moverse libremente 
hacia delante. 


return( 1 ); 
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iones pueden solicitarse otros exámenes diferentes. La 
prueba elegida aquí es la más práctica y aporta un gran servicio a la aplica- 
ción. En otras situaciones, sin embargo, puede ser necesario comprobar el 
valor de un color determinado, la necesidad de que una serie de pixels cum- 
plan una determinada condición, o comprobar una serie de respuestas basadas 
en información no visible en la pantalla, cotejándolas con una tabla determi- 
nada, Incluso puede utilizarse una combinación de todas ellas. 


La función DaUnPaso 


Se constituye en la principal función relacionada con el movimiento en este 
programa de demostración, y se invoca con tres argumentos. Los argumentos 
x e y son los incrementos asociados a los desplazamientos horizontal y verti- 
cal, y determinan la siguiente posición de la imagen en la pantalla. La función 
Sacarlmagen permite el control de la imagen que va a utilizarse y la activa- 
ción del valor de Ul1Mov, Para ello se sirve del argumento paso. 


void DaUnPaso( int x, int y, int paso ) 
t 

SacarImagen( paso ); 

delay ( Pausa ); 

SacarImagen ( paso ); 

PosX += X; 

PosY += y; 

if( paso != NOPASO) UltMov = paso; 


La primera llamada a Sacarlmagen coloca la imagen adecuada sobre la 
pantalla; tras un cierto tiempo de retardo, la segunda llamada borra la imagen. 
Debe tenerse en cuenta que la posición se incrementa sólo después que la 
imagen haya sido borrada. 


Sacarlmagen 


Esta función coloca la imagen deseada sobre la pantalla, haciendo uso para 
ello de la opción XOR_PUT. Si la imagen marcada por Mov y paso está 
todavía sobre la pantalla, XOR_PUT la borra. Si existiera una imagen en la 
pantalla, entonces la nueva imagen se solaparía con la ya existente, sin borrar- 
la. Si la imagen vigente sufriera un XOR consigo misma, entonces se produ- 
ciría la restitución de la imagen original. 


void SacarImagen( int paso ) 


int x = PosX, y = PosY; 
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switch( Mov ) 


t 
cage DERECHA 3 
case IZQUIERDA : x+=8; break; 
case ARRIBA : 
case ABAJO 3 y+=5; break; 
) 
putimage( x, y, Hombre[ Mov ][ paso ], XOR_PUT ); 
, 
Las imágenes que presentan la cara de Manolo orientada a izquierda y 
derecha deben sufrir un desplazamiento de ocho pixels sobre el eje x. Esto no 


afecta a las coordenadas de pantalla PosX y PosY, sencillamente mejora la 
colocación de las imágenes dentro de las paredes del laberinto. 


ImagenDestello 


La llamada a esta función (siguiendo la más ortodoxa tradición caricaturesca) 
se produce cuando Manolo choca contra la pared. Esta función reescribe la 
imagen de Manolo con una serie de estrellas coloreadas e irregulares y añade 
efectos sonoros aleatorios. El programa provoca la aparición súbita de los 
destellos sobre la pantalla, la activación del efecto sonoro, la ejecución de una 
operación XOR del destello consigo mismo, y la generación de un nuevo 
efecto sonoro. 

Las tres imágenes centelleantes se repiten tres veces sin utilizar ningún 
tiempo de retardo; de ahí que la imagen resultante sobre la pantalla sea una 
breve estrella multicolor o una serie de estrellas que se desvanecen antes de 
poder ser perfectamente vistas. 


void ImagenDestello( int x, int y ) 


1 
int i, J, k; 
for( i=1; i<=3; i++ ) 
for( J=0; 3<3; j++ ) 
for( k=0; k<2; k++ ) 
as 
putimage( Xx, Y, Destello[j], XOR_PUT ); 
sound( random(100) + 100 ); 
) 
nosound (); 
y 


Antes que el procedimiento termine se lanza la llamada a la función no- 
sound para cancelar el último sonido. Debe recordarse que cada sonido se 
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prolonga hasta que se llame a ejecución a una nueva orden de sonido o hasta 
que la función nosound termine explícitamente el efecto sonoro. 


Borrarlmagen 
El último procedimiento utilizado en esta demostración es Borrarlmagen. Este 


procedimiento hace uso la función free para liberar la memoria reservada para 
las distintas imágenes. 


void BorrarImagen() 


t 
int i, J; 
for( i=0; i<=2; i++ ) 
free( Destello[i] ); 
for( i=0; i<=3; i++ ) 
for( j=0; j<=2; j++ ) 
free( Hombre[i] [3] ); 
) 


Una vez terminado el programa, estas reservas de memoria deberían ser 
liberadas mediante la llamada a closegraph. Es una buena práctica liberar 
explícitamente la memoria reservada para las imágenes. En otras aplicaciones 
podría ser ventajoso utilizar la función free para liberar la memoria utilizada 
por una aplicación y ponerla a disposición de otra. 


Animación morfológica 


Las técnicas de animación convencional que utilizan imágenes creadas previa- 
mente son útiles para juegos que utilizan pasadizos y para aplicaciones más 
sencillas. Sin embargo, el programador necesita prever por adelantado todas 
las posibles contingencias y crear cada una de las imágenes necesarias de 
forma individual. La alternativa pasa por crear reglas para la construcción de 
imágenes e indicarle al computador que las dibuje cuando sean necesaria 
reponiéndolas según las necesidades del momento. 

El segundo programa de demostración, ANIMADOZ2.C, define a Paco co- 
mo una figura alargada y estilizada con un cuerpo triangular y dos piernas. 
Esta imagen no ha sido creada de forma previa, y se dibuja y borra de acuerdo 
con una serie de reglas de programación muy sencillas. Los brazos son esla- 
bones con grados de libertad definidos y longitudes fijas (literalmente, un 
esqueleto como el de Vd.). 
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En la demostración, Paco se levantará y luego caminará a través de la 
pantalla de izquierda a derecha, Para llevar a cabo esto será necesario escribir 
y borrar un total de más de 5.000 imágenes. El efecto de ponerse en pie 
necesita de unas 242 imágenes y cada paso necesita de una serie de 243 
imágenes. 

La desventaja de este enfoque es: primero, que Paco exige mucho cálculo; 
segundo, las reglas que definen el movimiento y la posición de Paco son 
complicadas; tercero, cuanto más compleja sea la imagen, más tiempo de 
proceso necesitará. Estas desventajas pueden superarse por distintos métodos. 
Las reglas de movimiento pueden simplificarse con el fin de minimizar el 
cálculo; por consiguiente, el uso de un coprocesador matemático permitirá 
reducir el tiempo necesario para los cálculos. La imagen calculada puede 
combinarse, en parte, con imágenes ya almacenadas y así reducir la comple- 
jidad de los cálculos. La gran ventaja es que el programador puede crear 
reglas y árboles de decisión para gobernar las imágenes y las posiciones, y 
puede dibujarlas de forma que añadan flexibilidad, cosa que las imágenes fijas 
no pueden emular. La presente demostración no contempla un conjunto com- 
plejo de respuestas, pero contiene los requisitos básicos. Desde aquí se invita 
a expandir este programa y a crear un juego de adaptaciones más complejo. 

Aviso: Si a vd. no le gustan las matemáticas, seguro que aborrecerá la 
animación morfológica. No hay soluciones fáciles y deberán adoptarse aque- 
llas reglas que necesiten un proceso de cálculo serio y algo de trabajo ingrato. 
Una vez hecha la advertencia, llega el momento de ver cómo se manipula la 
imagen morfológica. 

ANIMADO?2.C comienza con dos constantes: Pl, para convertir los ángu- 
los de grados a radianes, y ESPERA para proporcionar la constante de retardo 
temporal. ESPERA puede incrementarse o decrementarse de acuerdo con la 
velocidad del sistema. 


const double PI = 3.1415; 
const int ESPERA = 1; 


Los puntos de acción y la definición de las interrelaciones entre las distin- 
tas secciones de la anatomía de Paco necesitan de una serie de variables 
globales. 


int ColorDer, Colorlzq, /* color de las piernas derecha 


e izquierda */ 

AnguloSupDer, AnguloSuplIzq, /* ángulos superiores 
izquierdo y derecho */ 

Rodillalzqx, RodillalzqY, RodillaDerX, RodillaDerY, 


F* coord. de las rodillas */ 
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AnguloInfDer, AnguloInfIza, /* ángulos inferiores 
derecho e izquierdo */ 
Pielzgx, PielzgY, PieDerX, PieDerY, 
/* coord. de los pies */ 
ArtSup, ArtInf, /* longitud de las uniones de 
las piernas 
tro del cuerpo */ 


PosX, PosY; /* coord, del 


Antes de profundizar en estas funciones especiales, un breve inciso. En C, 
las funciones trigonométricas convencionales admiten argumentos angulares 
en radianes, mientras las funciones gráficas de Turbo C++ están preparadas 
para utilizar argumentos expresados en grados. En esta aplicación es más 
conveniente el uso de ángulos en grados, incluso si se utilizan las funciones 
trigonométricas convencionales. Por este motivo se crea la función rad, para 
convertir un ángulo dado en grados en un ángulo expresado en radianes. 


double rad (int grados) 
t 

return (PI * grados/180); 
y 


Por motivos de conveniencia, las funciones seno y coseno se encargan de 
calcular los senos y los cosenos de ángulos especificados en grados. Dése 
cuenta de que un argumento entero (grados) devuelve un resultado de tipo 
double (fracción decimal). 


double seno (int grados) 
t 
return sin (rad(grados)); 


J 


double coseno (int grados); 
$ 

return cos (rad(grados)); 
y 


El programa principal comienza utilizando la misma función Iniciar que 
los programas anteriores; luego carga los valores iniciales de las variables que 
describen la estructura de Paco y la posición inicial. 


main() 
4 
int i; 
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Iniciar(); 


AnguloSupDer = 30; AnguloSuplzq = 30; 
AnguloInfDer = 0; AnguloInfIzq = 0; 

ArtSup = 30; ArtInf  = 30; 

Pielzgx = 30; PielzgY = PieDerY = 150; 
ColorDer = BLUE; ColorIlzq = RED; 


La función CrearCampo dibuja un plano para que Paco pueda caminar 
sobre él y proporciona unas estructuras de fondo como demostración. Co- 
mienzoCaminante coloca a Paco sobre la pantalla con su configuración inicial 
(rechoncho y arrugado). CaminanteEnPie permite a Paco ponerse en pie; lue- 
go, CaminaRecto caerá en un bucle de 20 pasos, necesario para que Paco 
cruce la pantalla. 


CrearCampo(); 

ComienzoCaminante(); 
CaminanteEnPie(); 

for( i=1; i<=20; i++ ) CaminaRecto(); 
Pausa (); 

closegraph(); /* repone modo texto */ 


En la función main se cargaron los valores iniciales de las definiciones de 
Paco, aunque podría ser que no fueran correctos. Algunos valores se estable- 
cen mejor por cálculos que mediante valores introducidos por el programador. 
Esta, es otra forma de decir que es más fácil dejar que el computador calcule 
la forma de encajar a Paco, en vez de resolver ángulos y fórmulas con una 
calculadora de bolsillo y luego introducirlos. Después de todo, ¿por qué com- 
plicarse la vida? 

En un primer momento, la posición del pie izquierdo estará predefinida y 
la rodilla izquierda se encontrará inmediatamente encima del pie (de ahí que 
quede perfectamente definida la longitud del tramo inferior de la pierna). 


void ComienzoCaminante() 

1 
Rodillalzqx = PielzqXxX; 
RodillalzqY = PielzqY - ArtInf; 


Una vez colocados en posición el tramo inferior de la pierna izquierda y 
la rodilla, se procede al cálculo de las coordenadas del cuerpo, de acuerdo con 
el ángulo formado desde la vertical (AnguloSuplzg) y la longitud de la articu- 
lación superior (ArtSup). El cálculo efectuado es rápido, pero poco preciso. 
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Para proceder a un cálculo preciso de las posiciones coordenadas deben utili- 
zarse las fórmulas: 


(ptx * cos(angulo) + pty * sin(angulo)); 
(pty * cos(angulo) + ptx * sin(angulo)); 


ptx 
pty 


Ahora se calculan las coordenadas del cuerpo: 


Posx 
Posy 


PielzgX + seno (AnguloSuplzq) * ArtSup; 
PielzqY + coseno (AnguloSupIzq) * ArtSup - ArtInf; 


Los cálculos continúan con la pierna derecha hasta la rodilla derecha; así 
conseguimos colocar el pie derecho. 


PieDerX = PosX + seno( AnguloSupDer ) * ArtSup; 
RodillaDerX = PieDerX; 

RodillaDerY = PieDerY-ArtInf; 

ImagenCuerpo( MaxColores-1 ); 


El último paso consiste en colocar a Paco sobre la pantalla; para ello se 
llama a la función ImagenCuerpo. Esta función puede llamarse para dibujar a 
Paco y para borrarlo de la pantalla (con valor de color 0). 


void ImagenCuerpo( int color ) 

:S 
int i, J, Izquierda, Derecha, Arriba, Abajo, X, y; 
setcolor( color ); 
if( color ) setcolor( Colorlzq ); 


Comenzando por la pierna izquierda, el punto PV se cargará con las coor- 
denadas adecuadas y se dibujará a continuación una unión en el pie de Paco. 
Seguidamente se dibujará una línea hasta la rodilla y se volverá a dibujar otra 
unión sobre ésta. 


moveto ( Pielzgx, PielzqY ); 
DibujarUnion(); 

lineto ( RodillalzgX, RodillalzqY ); 
DibujarUniom(); 


La línea continuará su camino hacia la cadera, cambiará de color en la 
pierna derecha y seguirá su camino descendente hacia el pie derecho. 
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lineto ( PosX, PosY ); 
DibujarUnion(); 

if ( color ) setcolor ( ColorDer ); 
lineto ( RodillaDerX, RodillaDerY ); 
DibujarUnion(); 

lineto ( PieDerX, PieDerY ); 
DibujarUnion(); 


El último trabajo consiste en dibujar el cuerpo. Dado que el cuerpo de Paco 
ni se tuerce ni se mueve, para esta parte de su anatomía sólo hará falta un 


pequeño juego de instrucciones. 


if( color ) setcolor (MaxColores -1); 


Abajo = PosY+10; 
Arriba = PosY-5; 
Izquierda = PosX-11; 
Derecha = PosX+11; 
line ( PosX, PosY, Izquierda, Arriba ); 
line ( PosX, PosY, Derecha, Arriba ); 
line ( PosX, PosY, PosX, Abajo ); 
line ( Izquierda, Arriba, Derecha, Arriba ); 
line ( Izquierda, Arriba, PosxX, Abajo ); 
line ( Derecha, Arriba, PosX, Abajo ); 


La función ImagenCuerpo viene a llamarse más de 5.000 veces para dibu- 
jar a Paco en diferentes posiciones a medida que se mueve. Para acelerar las 
operaciones se le aconseja dibujar esta porción del cuerpo una vez, guardar la 
imagen y utilizar Sacarlmagen con el argumento XOR_PUT. 


La función DibujarUnion dibuja un nudo de 3x3 pixels para definir los pies 
y las rodillas de Paco. 


void DibujarUnion() 
1 
int i, j, k = getcolor(); 


for( i=-1; i<=1; i++ ) 


for( j=-1; j<=1; j++ ) 
putpixel( getx()+i, gety()+J], k ); 


La función CaminanteEnPie lleva a Paco desde su posición inicial de aga- 
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chado hacia una posición erecta. La primera vez que se irguió a Paco, el 
ángulo del tramo superior de su pierna (AnguloSuplzg) se inició a 30 grados. 
Ahora Paco se enderezará en pasos de un grado, debiéndose calcular las nue- 
vas posiciones de la rodilla y la cadera para cada variación de un grado, hasta 
que esté totalmente erguido y con el ángulo del tramo superior de la pierna 
en 150 grados. Si se supone que ambas piernas se mueven de la misma forma 
y al mismo tiempo, entonces los cálculos se simplifican enormemente. 


void CaminanteEnPie() 
1 
int RodillaX, RodillaY; 


while( AnguloSupIzq<=150 ) 
1 
AnguloSupIZq++; 
RodillaX = PosX - seno ( AnguloSupIzqg ) * ArtSup; 
RodillaY = PosY - coseno( AnguloSupIzq ) * ArtSup; 
if( (PielzgX-RodillaX) ££ (PielzgY-RodillaY) ) 
Ú 
ImagenCuerpo( 0 ); 
RodillalzgX = RodillaxX; 
RodillalzqY = RodillaY; 
AnguloInfDer = AngulolnfIzq = 
180 * atan2( (PielzgX-RodillalzqX), 
PielzqY-RodillalzqY) ) / PI; 


RodillalzqX = Pielzgx - seno( AnguloInfIzq ) 
* ArtInf; 
RodillaDerX = PieDerX + seno( AngulolInfDer ) 
* ArtInf; 
RodillaDerY = RodillalzqY = PielzqY - 
coseno( AngulolnfIzq ) * ArtInf; 
PosY = RodillalzgY + coseno( AnguloSuplzq ) * ArtSup; 
ImagenCuerpo( 15 ); 
delay (ESPERA * 10); 


Los ángulos derecho e izquierdo se igualan y en caso de que persista algún 
error, los ángulos inferiores (AngulolnfDer y Angulolnflzg) se pondrán a 
cero, 


AnguloSupDer = AnguloSupIzq; 
AguloInfDer = AnguloInfIzq = 0; 
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Ahora que Paco está de pie, se procede a utilizar la función CaminaRecto 
con objeto de desplazarlo a través de la pantalla. 

En caso de desear que Paco respondiera con acciones complicadas, podría 
ser útil fraccionar la función en una serie de pequeñas funciones que calcula- 
ran los movimientos de los distintos componentes de forma independiente. 


void CaminaRecto() 
t 
int te 


El primero de los elementos aquí transcritos tiene que ver con el movi- 
miento del pie derecho (la parte inferior de la pierna derecha) hacia un ángulo 
de 30 grados. 


for( is1l; i<=30; i++ ) 
t 
ImagenCuerpo( 0 ); 
AnguloInfDer++; 
PieDerX = RodillaDerX + seno( AnguloInfDer ) 
* ArtInf; 
PieDerY = RodillaDerY + coseno( AnguloInfDer ) 
* ArtInf; 
ImagenCuerpo( MaxColores-1 ); 
delay( ESPERA ); 


En el momento en que Paco haya levantado su pie, la pierna izquierda ya 
estará inclinándose hasta que el pie derecho vuelva a tocar el suelo (aproxi- 
madamente), Dado que Paco no pesa nada, no hay por qué preocuparse por 
una posible caída, pudiendo balancearse sin necesidad de llevar a efecto nin- 
gún ajuste. En otras aplicaciones podría ser aconsejable el uso de un contador 
para simular mejor el movimiento natural, Para conseguir que el programa de 
demostración sea sencillo, la gravedad se sustituye por la levitación. 

Una vez más, los cálculos comienzan por un pie (el izquierdo), suben hasta 
la cintura y luego bajan hacia el pie derecho. 


for( i=1; i<=30; i++ ) 
1 
ImagenCuerpo( 0 ); 
AngulolnfIzq++; 
RodillalzqX = Pielzgx + seno( AnguloInflIzq ) 
* ArtInf; 
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RodillalzqY = PielzqY - coseno( AngulolnfIzq ) 


* ArtInf; 

PosX = Rodillalzqx + seno( AnguloSuplzq ) 
* ArtSup; 

PosY = RodillalzqY + coseno( AnguloSuplzq ) 
* ArtSup; 

RodillaDerx = PosX + no( AnguloSupDer ) 
* ArtSup; 

RodillaDerY = PosY - coseno( AnguloSupDer ) 
* ArtSup; 

PieDerX = RodillaDerX + seno( AnguloInfDer ) 
* ArtInf; 

PieDerY = RodillaDerY + coseno( AnguloInfDer ) 
* ArtInf; 


ImagenCuerpo( MaxColores-1 ); 
delay( ESPERA ); 


De nuevo, ha llegado el momento de enderezar la pierna derecha, movien- 
do la izquierda para compensar. 


for( d=1; i<=30; d4+ ) 


1 /* mueve hacia atrás la 
pierna derecha para levantarse */ 
ImagenCuerpo( 0 ); 
AnguloInfDer--; 
RodillaDerX = PieDerX - seno( AnguloInfDer ) 
* ArtInf; 
RodillaDerY = PieDerY - coseno( AnguloInfDer ) 
* ArtInf; 
PosX = RodillaDerx - seno( AnguloSupDer ) 
* ArtSup; 
PosY = RodillaDerY + coseno( AnguloSupDer ) 
* ArtSup; 
Rodillalzgx = PosX - seno( AnguloSuplzq ) 
* ArtSup; 
RodillalzqY = PosY - coseno( AnguloSuplzq ) 
« * ArtSup; 
Pielzqgx = Rodillalzqgx - seno( AngulolInfIzq ) 
+ Artint; 
PielzqY = RodillalzqY + coseno( AnguloInfIzq ) 
* ArtInf; 


ImagenCuerpo( MaxColores-1 ); 
delay( ESPERA ); 
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Por último, la pierna izquierda vuelve a enderezarse hasta completar el 
paso de Paco. 


t /* mueve hacia atrás la 
pierna izquierda para levantarse */ 
ImagenCuerpo( 0 ); 
AngulolnfIzq--; 
Pielzgx = Rodillalzqx - seno( AngulolInfIzq ) 
* ArtInf; 
PielzqY = RodillalzqY + coseno( AngulolnfIzq ) 
* ArtInf; 
ImagenCuerpo( MaxColores-1 ); 
delay( ESPERA ); 


En este momento, las coordenadas y los ángulos de cada pie han sido 
calculados alrededor de 120 veces, al tiempo que se ha acumulado una cierta 
cantidad de errores durante el proceso. Esto es inevitable. Si se observa cui- 
dadosamente la figura resultante podrá percibirse que el pie derecho de Paco 
se encuentra desplazado en una pequeña distancia del plano del suelo donde 
comenzó, mientras la pierna izquierda se encuentra, aproximadamente, un 
pixel más alejada del suelo que la derecha. 

Dado que él continúa caminando a través de la pantalla, si no se efectuase 
ninguna corrección, se iría desplazando todo recto pero también lo haría hacia 
arriba, 

Si estas posiciones fueran críticas, la elección Óptima pasaría por rediseñar 
el proceso de cálculo (esto es, rediseñar las condiciones del bucle). En esta 
aplicación, sin embargo, sólo es necesario efectuar una pequeña corrección a 
la función ImagenSuelo para mantener los pies de Paco firmemente pegados 
a la tierra, 


ImagenSuelo(); 


La función ImagenSuelo permite tener en cuenta la gravedad tan sólo du- 
rante un momento, por lo que empuja a Paco contra el suelo, sin más que 
ajustar las cinco coordenadas críticas verticales. 


void ImagenSuelo() 

1 
while( !getpixel( PielzqX, PielzqY+3 ) ) 
É 
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ImagenCuerpo( 0 ); 
RodillalzqY++; 
RodillaDerY++; 

PielzqY++; 

PieDerY++; 

PosY++5 

ImagenCuerpo( MaxColores-1 ); 


Esto completa la tarea inicial de llevar a Paco de paseo. 


Retención de la imagen de fondo 


Al ejecutar este programa de demostración podremos observar que Paco ca- 
mina sobre un plano sembrado de cajas. Dada la sencillez del programa, Paco 
no tiene ninguna conciencia de desorden y, puesto que la imagen de Paco se 
reescribe constantemente, las cajas se borran con la imagen de su pierna, 

Sin entrar en el problema de que Paco tenga que ver o no estos obstáculos 
y saltar sobre ellos (aunque éste es un buen lugar para experimentar las reglas 
de decisión y respuesta), existen dos métodos para evitar el borrado de la 
imagen de fondo. 

Una opción consiste en guardar una imagen de fondo y, en lugar de utilizar 
la función ImagenCuerpo con el color BLACK para borrar a Paco, utilizar la 
función putimage con la opción COPY_PUT para restituir el fondo y borrar a 
nuestro personaje al mismo tiempo. A continuación se puede dibujar la nueva 
imagen de Paco para el siguiente paso. 

Para hacer esto serán necesarias tres nuevas variables globales: 


int Posicionsup, Posicionizq; 
void *Fondo; 


La función CaminaRecto podría ser ahora: 


void CaminaRecto() 
1 


BorrarImagen(); (* Sustituye a ImagenCuerpo(0) */ 
AngulolInfDer++; 
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PieDerX = RodillaDerX + seno( AnguloInfDer ) 


* Artinf; 
PieDerY = RodillaDerY + coseno( AnguloInfDer ) 
* ArtInf; 
TomarFondo(); /* Restituye el fondo */ 


ImagenCuerpo( MaxColores-1 ); 
delay( ESPERA ); 


La clave de la operación es la función TomarFondo que podría ser la 
siguiente: 


void TomarFondo() 
5 
int izquierda, arriba, derecha, abajo = 150; 
if (PielzgX < RodillaDerX) izquierda = Pielzqgx-5; 
else izquierda=Rodillalzqx-5; 
if (PieDerX > RodillaDerX ) derecha = PieDerX+5; 
else derecha = RodillaDerX+5; 
if (RodillalzqgY < posy) arriba = posy-7; 
else arriba = RodillalzqY-5; 
Posicionsup = arriba; 
Posicionizg = izquierda; 
Fondo = malloc (imagesize(izquierda, arriba, derecha, 
abajo)); 
getimage (izquierda, arriba, derecha, abajo, Fondo); 


Para conseguir la máxima extensión de la imagen de Paco es necesario 
examinar el contenido de las variables izquierda y derecha y para la altura, la 
variable arriba. Por supuesto se añade un pequeño margen a cada borde y, 
por motivos de simplificación, se fija el valor de la variable abajo. Para 
guardar las coordenadas de las esquinas se utilizan las variables globales 
Posicionsup y Posicionizg. 

La función Borrarlmagen utiliza la función putimage con el parámetro 
COPY_PUT para restaurar el fondo; luego libera la memoria reservada para 
Fondo. Recuerde que en caso de reservar memoria repetidas veces y de no 
proceder luego a su liberación, puede llegarse a un colapso. 


void BorrarImagen() 


$ 
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putimage (Posicionizgq, Posicionsup, 
Fondo, COPY_PUT); 
free (Fondo); 


Junto a esto debe efectuarse una primera llamada a TomarFondo antes 
de colocar inicialmente a Paco sobre la pantalla y después de haber calcu- 
lado las posiciones de sus pies y sus rodillas (consulte la función Comien- 
zoCaminante). 


LineaXOR 


Una segunda opción consiste en crear la función LineaXOR. Es equivalente a 
la función line de Turbo C++ pero, en lugar de escribir los pixels directamente 
sobre la pantalla, calcula los pixels de cada línea haciendo un XOR de estos 
con su correspondiente pixel de pantalla. Para hacer esto, el primer paso es 
calcular la línea. La función LineaXOR se llama de la misma forma que la 
función line. 


void LineaXOR (int x1, int yl, int x2, int y2) 
( 

int i, j, k = getcolor() 

int x = 10, y = 10; 

double pendiente; 


El cálculo de la línea comienza con el examen de los puntos finales, con 
objeto de ver dónde se encuentra la mayor distancia, si sobre el eje x o sobre 
el eje y. 


if (abs(x1-x2) > abs (yl-y2)) 
1 


A continuación se examina la ordenación de los puntos finales, y si el 
primer punto es mayor que el segundo, las coordenadas x e y se intercambian. 
Para simplificar el cálculo, el bucle final procesará los valores de menor a 
mayor. Para que la línea conserve el resultado correcto, los pares de coorde- 
nadas deberán intercambiarse. 


if (x1 > x2) 


1 
x1 


i = yl; yl 


1 
eS 


x2; x2 = 
y2; y2 = 


po 
x 
[4% 


' 
pr 
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La variable j recibe la resta de los valores sobre el eje x ,y pendiente recibe 
el valor de la pendiente de la línea. 


j = x2-x1; 
pendiente = (double) (y2-y1)/j; 


Por último, se ejecuta un bucle que recorre la línea a lo largo de eje x; los 
valores correspondientes sobre el eje y se obtienen a partir del valor de la 
pendiente. Los resultados se pasan como argumentos a la función Imprimir- 
XOR. 


for (is=1; i<=]; i++) 
ImprimirXOR (x1+i, yl1+(int)(i*pendiente), k); 
) 
else 
t 


En el segundo caso, en que la distancia al eje y es mayor que la distancia 
al eje x, la forma de proceder es idéntica, con el matiz de que ahora, para cada 
punto del eje y, se calcula un valor del eje x. 


if (yl > y2) 
1 
io = yl; yl = y2; y2 = 1; 
3 = xl; x1 =x23 x2 = 1d; 
J 
j = y2-yl; 
pendiente = (double) (x2-x1)/3; 
for (i=1; i<=J; i++) 
ImprimirXOR (x1+(int),(i*pendiente), yl+i, k); 
q Y) 


La función ImprimirXOR utiliza la función putpixel para reescribir la pan- 
talla, realizando XOR entre el valor del color especificado y el valor presente 
del pixel. 


yoid ImprimirxXOR (int x, int y, int color) 
1 

putpixel (x, y, color * getpixel (x, y)); 
J 


Los equivalentes XOR de las funciones lineto y linerel también pueden 
crearse con facilidad. Si una misma línea se dibuja por dos veces mediante 


190 


PROGRAMACIÓN DE GRÁFICOS EN TURBO C++ 


una función XOR, entonces la primera desaparece, El fondo original perma- 
nece intacto. 

Si Vd. piensa utilizarlas en el programa de demostración ANIMADO2.C, 
cambie todas las apariciones de ImagenCuerpo (0) por ImagenCuerpo (Max- 
Colores-1) o bien cambie la función ImagenCuerpo de forma que se ignore o 
se elimine el argumento del color. 

Por supuesto, existe un pequeño inconveniente en esta aproximación: la 
función LineaXOR anterior es bastante más lenta que la función line de Turbo 
C++. Si Vd. piensa utilizarla con frecuencia y la velocidad es un condicionan- 
te, entonces debiera escribir su propio equivalente XOR de line en lenguaje 
mblador para optimizar la velocidad de proceso. 

Si Vd, dispone de la versión 2.0 de Turbo C podrá utilizar la función 
setwritemode para llevar a cabo el mismo propósito sin pérdida de velocidad. 


[fasasaso===== s======= 
/*  ANIMADO1.C -- Animación sencilla usando Gráficos 20: 
/* en Turbo-C. Las imágenes y el laberinto están */ 
/* creados para tarjetas EGA o de resolución superior. */ 
/*  CGA requiere ajustes en las imágenes y en el */ 
/* laberinto pero de todas formas correrá la * 
/* demostración tal como y está en sistemas CGA. lit 


1 


Hifdef _ TINY 

tteerror La demostración no funciona si se compila en el 
modelo TINY. 

Hendif 


tinclude <conio.h> 
ttinclude <stdio.h> 
ttinclude <stdlib.h> 
ttinclude <stdarg.h> 
ttinclude <graphics.h> 


fdefine DERECHA o 
iidefine IZQUIERDA Ade 
iidefine ARRIBA 2 
itdefine ABAJO 3 
define NOPASO 0 


define  PASOIZ Mie 
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Hidefine  PASODER 2 
int ControladorGrafico; /* controlador del dispositivo 
$ gráfico */ 
int ModoGrafico; /* valor del modo gráfico */ 
int MaxColores; /* colores disponibles */ 
int CodigoError = 0; /* da cuenta de cualquier 
error en gráficos */ 
int PosX = 3, PosY = 3; /* posición inicial 
para el laberinto */ 
int Mov, UltMov; /* direcciones del movimiento */ 
void *Destello[3]; /* destello cuando 
choca con las paredes */ 
void *Hombre [4] [3]; /* imágenes para mover 


por el laberinto */ 
unsigned Pausa = 100; 


void Iniciar() /* inicializa el sistema de gráficos 
y da cuenta de cualquier error */ 
t 
ControladorGrafico = DETECT; /* solicita autodetección */ 
initgraph( £ControladorGrafico, £ModoGrafico, 
"Ci ANTCANBGI" )5 
CodigoError = graphresult(); /* resultado del test */ 
if ( CodigoError != gr0k'*%) si hay error al inicializar */ 
ES 
printf(" Error en el Sistema de Gráficos: %sin", 
grapherrormsg( CodigoError ) ); 
exit( 1); 
) 
MaxColores = getmaxcolor() + 1; /* rango máximo 
de colores */ 
J 


void *GuardarImagen( int izquierda, int arriba, 
int derecha, int abajo ) 
1 
void *Imagen; 


Imagen = malloc( imagesize( izquierda, arriba, derecha, 
abajo ) ); 
getimage( izquierda, arriba, derecha, abajo, Imagen ); 
/* captura la Imagen */ 
putimage( izquierda, arriba, Imagen, XOR_PUT ); 
/* borra la Imagen her 
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return( Imagen ); /* devuelve el puntero */ 
J 
void CrearImagen() 


t 


int i, j, MaxColor = getmaxcolor(); 


int Destello1l[] = f 100, 40, 110, 60, 100, 70, 120, 65, 
140, 80, 130, 60, 140, 50, 120, 65, 
100, 40 ); 


int Destello2[] 


120, 40, 110, 55, 90, 60, 110, 65, 
120, 80, 130, 65, 150, 60, 130, 65, 
120, 40 ); 

140, 40, 130, 60, 140, 70, 120, 65, 
100, 80, 110, 60, 100, 50, 120, 55, 


int Destello3[] 


" 


140, 40 ); 
int BrazolzgAtras[] = ( 100, 62, 102, 68, 105, 70, 
108, 69, 109, 65 ); 
int BrazolzqAdelante[] = ( 140, 62, 143, 52, 130, 47, 
125, 52 ); 
int BrazoDerAtras[] = [ 121,145, 128,147, 130,150, 


129,153, 125,154 ); 
int BrazoDerAdelante[] = ( 117,176, 106,176, 100,165, 
107,160 ); 


randomize (); 
setcolor( random( MaxColor ) + 1 ); 
setfillstyle( random(11) + 1, 
random ( MaxColor ) + 1 ); 
fillpoly( sizeof( Destello1 )/( 2 * sizeof( int ) ), 
Destello1 ); 
Destello[0] = GuardarImagen( 100, 40, 140, 80 ); 


setcolor( random( MaxColor ) + 1 ); 
setfillstyle( random(11) + 1, 
random ( MaxColor ) + 1); 
fillpoly( sizeof( Destello2 )/( 2 * sizeof( int ) ), 
Destello2 ); 
Destello[1] = GuardarImagen( 90, 40, 150, 80 ); 


setcolor( random( MaxColor ) + 1 ); 

setfillstyle( random(11) + 1, random( MaxColor ) + 1 ); 

fillpoly( sizeof( Destello3 )/( 2 * sizeof( int ) ), 
Destello3 ); 

Destello[2] = GuardarImagen( 100, 40, 140, 80 ); 
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setcolor( MaxColor ); 
setfillstyle( SOLID _FILL, MaxColor ); 
ellipse( 120; "60, 0) 360, “LOW. 10 )3 /* dibuja y 
rellena cabeza */ 
floodfil1(-120, 60, MaxColor ); 
ellipse( 220, 160, 041 360, 13% 7 dr 
floodfill( 220, 160, MaxColor ); 
ellipse( 120, 51,.0, 180, 3, 3)7 4 pone: La 
abia Y 
ellipse( 207, 160, 90, 270, 3, 2); 
setfillstyle( HATCH_FILL, MaxColor ); /* cambia el tipo 
de relleno */ 
ellipse( 128, 60, 270, 90, 12, 6); 


floodfill( 135, 60, MaxColor ); 

ellipse( 112, 60, 90, 270, 12,» 6 )3 
floodfil1( 105, 60, MaxColor ); 

ellipse( 220, 154, 0, 180, 8, 9 )i 
flooafill( 220, 150, MaxColor ); 

ellipse( 220, 166, 180, 360, 8, 9); 
floodfil1( 220, 170, MaxColor ); 

for ( 1=100; i<=145; 1++) 

for ( J= 45; j<= 70; J++) 

putpixel( 345-i, 120-j, getpixel( i, J] ) ); 


for ( 1=204; 1<=235; i++) 
for ( J=145; ¿<=175; J++) 
putpixel( 345-i, j, getpixel( 1, 3 ) ); 


Hombre [ARRIBA] [NOPASO] = 

GuardarImagen( 100, 45, 140, 70 ); 
Hombre [ABAJO] [NOPASO] = 

GuardarImagen( 205, 50, 245, 75 ); 
Hombre [IZQUIERDA] [NOPASO] = 

GuardarImagen( 203, 140, 234, 180 ); 
Hombre [DERECHA] [NOPASO] - 

GuardarImagen( 111, 140, 142, 180 ); 


setfillstyle( CLOSE_DOT_FILL, MaxColor ); /* cambia tipo 
de relleno */ 
putimage( 100, 45, Hombre[ARRIBA] [NOPASO], COPY PUT ); 
/* añade los brazos */ 
fillpoly( sizeof( BrazolzgAtras )/ 
(2 * sizeof (int) ), BrazolzgAtras ); 
fillpoly( sizeof( BrazolzgAdelante )/ 
(2 * sizeof(int) ), BrazolzgAdelante ); 
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/* fillpoly rellena el contorno calculado entre los puntos 


extremos -- puede volver a dibujar parte de la imagen 
original y de sus límites =- repone el original usando 
OR_PUT. */ 


putimage( 100, 45, Hombre[ARRIBA] [NOPASO], OR_PUT ); 
for ( i=100; i<=145; 14++) 
for ( j= 45; j<= 70; j++) 
1 
putpixel( 345-i, J, getpixel( i, j)); 
/* rota a derecha/izquierda */ 
putpixel( 345-i, 220-3, getpixel( i, j ) ); 
/* e invierte para ponerlo */ 
putpixel ( i, 220-j, getpixel( i, j ) ); ) 
/* hacia abajo/arriba */ 


/* guarda todas las imágenes */ 

Hombre [ARRIBA] [PASOIZ] = 

GuardarImagen( 100, 45, 145, 70 ); 
Hombre [ARRIBA] [PASODER] = 

GuardarImagen( 200, 45, 245, 70 ); 
Hombre [ABAJO] [PASOIZ] - 

GuardarImagen( 100, 150, 145, 175 ); 
Hombre [ABAJO] [PASODER] = 

Guardarimagen( 200, 150, 245, 175 ); 


Putimage( 100, 140, Hombre [IZQUIERDA] [NOPASO], 
COPY_PUT ); 
/* añade los brazos */ 
fillpoly( sizeof( BrazoDerAtras )/ 

(2 * sizeof(int) ), BrazoDerAtras ); 
fillpoly( sizeof( BrazoDerAdelante )/ 

(2 * sizeof(int) ), BrazoDerAdelante ); 
putimage( 100, 140, Hombre [IZQUIERDA] [NOPASO], OR_PUT ); 
for ( i=100; i<=132; 1d++) 
for ( j=144; j<=177; j++) 

1 
putpixel( 345-i, Jj, getpixel( i, j ) ); 
/* rota arriba/abajo */ 
putpixel( 345-i, 220-j, getpixel( i, 100 
/* e invierte para */ 
putpixel ( i, 220-j, getpixel( i, j ) ); ) 
/* ponerlo hacia la derecha/izquierda */ 
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Hombre [IZQUIERDA] [PASODER] = 
GuardarImagen( 100, 144, 132, 177 ); 
Hombre [IZQUIERDA] [PASOIZ] = 
GuardarImagen( 100, 43, 132, 76 ); 
Hombre [DERECHA] [PASOIZ] - 
GuardarImagen( 213, 43, 245, 76 ); 
Hombre [DERECHA] [PASODER] = 
GuardarImagen( 213, 144, 245, 177 ); 
J 
void Crearlaberinto() 
1 
ed 
int Laberinto1[] += 1 200, 40, 50, 40, 50,160, 
100,160 ); 
int Laberinto2[] = 1 100, 80, 100,120, 200,120, 
200,240 ); 
int Laberinto3[] = ( 0,200, 100,200 ); 
int Laberinto4[] = ( 150,160, 150,240, 50,240, 
50,280 ); 
int Laberinto5[] ( 150, 80, 300, 80 ); 
int Laberinto6[] = ( 250, 80, 250,160 ); 
int Laberinto7[] = ( 100,280, 100,320 ); 
int Laberinto8[] [ 150,280, 250,280, 250,240, 300, 
240 ); 
int Laberinto9[] = 1 250, 40, 350, 40, 350, 80 ); 
int Laberinto10[] = í 200,200, 300,200, 300,120, 400, 
120,400, 80,400, 160 ); 
int Laberinto11[] = ( 300,280, 350,280, 350,160 ); 
int Laberinto12[] = ( 400, 0, 400, 40 ); 
int Laberinto13[] = ( 450,120, 450, 40, 550, 40, 550, 
80 y; 
int Laberinto14[] = ( 500, 80, 500,160, 400,160, 400, 
240 ); 
int Laberinto15[] = ([ 400,280, 400,320 )»; 
int Laberinto16[] = (1 550,120, 550,200, 450,200, 450, 
280,550, 280 ); 
int Laberinto17[] = ( 500,240, 600,240 ); 
struct viewporttype VentanaGrafica; 
setcolor( MaxColores - 1 ); /* Pone color blanco * 
setviewport (0,0,639,349,1); 
settextstyle( DEFAULT_FONT, HORIZ_DIR, 1 ); 
outtextxy( 20, 330, "Use Flechas para mover a *Manolo” 


or <F>in para terminar el programa"); 
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setviewport(0,0,6 


setlinestyle( SOLID_LINE, 


getviewsettings( 


00,320,1); 


£VentanaGrafica ); 


0, NORM_WIDTH ); 


rectangle( 0, 0, VentanaGrafica.right - 
VentanaGrafica.left, 
VentanaGrafica.bottom - 


outtextxy( 10, 20 
drawpoly( sizeof( 


drawpoly( sizeof( 
drawpoly( sizeof( 
drawpoly( sizeof ( 
drawpoly( sizeof ( 
drawpoly( sizeof ( 
drawpoly( sizeof ( 
drawpoly( sizeof( 
drawpoly( sizeof ( 
drawpoly( sizeof ( 
drawpoly( sizeof ( 
drawpoly( sizeof( 
drawpoly( sizeof ( 
drawpoly( sizeof( 
drawpoly( sizeof( 
drawpoly( sizeof ( 
drawpoly( sizeof( 


outtextxy( 550, 3 


VentanaGrafica.top ); 


+ "SALIDA" ); 
Laberintol )/( 2 
Laberinto1  ); 
Laberinto2 )/( 2 
Laberinto2 ); 
Laberinto3 )/( 2 
Laberinto3  ); 
Laberinto4 )/( 2 
Laberinto4 ); 
Laberinto5 )/( 2 
Laberinto5 ); 
Laberinto6 )/( 2 
Laberinto6 ); 
Laberinto? )/( 2 
Laberinto? ); 
Laberinto8 )/( 2 
Laberinto8 ); 
Laberinto9 )/( 2 
Laberinto9 ); 
Laberinto10 )/( 2 
Laberintol0 ); 
Laberinto11 )/( 2 
Laberintol1 ); 
Laberinto12 )/( 2 
Laberinto12 ); 
Laberinto13 )/( 2 
Laberinto13 ); 
Laberintol4 )/( 2 
Laberintol4 ); 
Laberinto15 )/( 2 
Laberinto15 ); 
Laberinto16 )/( 2 
Laberintol6 ); 
Laberinto17 )/( 2 
Laberinto17 ); 

00, "FINAL" ); 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


* 


sizeof (int) 
sizeof (int) 
sizeof (int) 
sizeof (int) 
sizeof (int) 
sizeof (int) 
sizeof (int) 
sizeof (int) 
sizeof (int) 
sizeof (int) 
sizeof (int) 
sizeof (int) 
sizeof (int) 
sizeof (int) 
sizeof (int) 
sizeof (int) 


sizeof (int) 


» 
» 
). 
). 


Je 


Un 
), 


7 


ANIMACIÓN GRÁFICA BÁSICA 


197 


wvoid ImagenDestello( int x, int y ) 


t 
int ii, y, K; 


for( i=1; i<=3; i++ ) 
for ( J<35 d++ ) 

for( k= 5 k++ ) 

t 


putimagel X, Y, Destello[j], XOR_PUT ); 


sound( random(100) + 100 ); 
) 


nosound (); 


void SacarImagen( int paso ) 


í 
int x = PosX, y = PosY; 
switch( Mov ) 
1 
case DERECHA 3 
case IZQUIERDA : X+=8; break; 
case ARRIBA $ 
case ABAJO 1 y+=5; break; 
) 
putimage( x, y, Hombre[ Mov ][ paso ], XOR_PUT ); 
J 


int ExamenMovimiento() 


switch( Mov ) 
t 


case DERECHA : for ( 1 = PosX+47; i <= PosX+96; i++ ) 


if ( getpixel( i, PosY+5 ) ) 
case IZQUIERDA : for ( i = PosX; 
if ( getpixel( i, PosY+5 ) ) 
case ARRIBA : for ( i = PosY; i 
if ( getpixel( PosX+5, i ) ) 
case ABAJO : for ( 1 = PosY+37; 
if ( getpixel( PosX+5, i ) ) 


return( 0 ); break; 
dl >= PosX-50; d-- ) 
return( 0 ); break; 
>= PosY-40; i ) 
return( 0 ); break; 
i <= PosY+76; i++ ) 
return( 0 ); break; 
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return( 1 ); 


void DaUnPaso( int x, int y, int paso ) 


f 
SacarImagen( paso ); 
delay( Pausa ); 
SacarImagen( paso ); 


PosX += X; 
PosY += y; 
if( paso != NOPASO) UltMov = paso; 


void DesplazarImagen( int siguientepaso ) 
1 
int i, MalPasoX, MalPasoY, PasoX, PasoY, DestelloX, 
DestelloY; 


SacarIlmagen( NOPASO ); 
Mov = siguientepaso; 


SacarImagen( NOPASO ); 
switch( Mov ) 
1 


case DERECHA: MalPasoX 5; MalPasoY = 0; 
PasoX 5; PasoY = i 
DestelloX = 5; DestelloY = 0; 
break; 

case IZQUIERDA: MalPasoX = -5; MalPasoY = 0; 
PasoX = -5; PasoY = 0; 
DestelloX = 2; DestelloY = 0; 
break; 

case ARRIBA: MalPasoX = 0; MalPasoY 
PasoX = 0; PasoY 
DestelloX = 0; DestelloY = 4 
break; 

case ABAJO: MalPasoX = ; MalPasoY = 5; 
PasoX 0; PasoY 4; 
DestelloX = 0; DestelloY 0; 


break; 
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' 


( ¡ExamenMovimiento() ) 


SacarImagen( NOPASO ); 
PosX += MalPasoX; 
PosY += MalPasoY; 
SacarImagen( PASOIZ ); 


ImagenDestello( PosX + DestelloX, PosY + DestelloY ); 


SacarImagen[ PASOIZ ); 
PosX MalPasoX; 
PosY -= MalPasoY; 
SacarImagen[ NOPASO ); 


else 


1 


SacarImagen( NOPASO ); 
PosX += PasoX; 

PosY += PasoY; 

if( UltMov != PASOIZ ) 
£ 


for ( i=1; i<=2; i++ ) 


1 


) 


DaUnPaso( PasoX, PasoY, 
DaUnPaso( PasoX, PasoY, 
DaUnPaso( PasoX, PasoY, 
DaUnPaso( PasoX, PasoY, 


PASOIZ ); 
NOPASO ); 
PASODER ); 
NOPASO ); 


DaUunPaso( PasoX, PasoY, PASOIZ ); 
SacarImagen( NOPASO ); 
delay( Pausa ); 


) 


else 


t 


for ( i=1; i<=2; i++ ) 


1 


DaUnPaso( PasoX, PasoY, 
DaUnPaso( PasoX, PasoY, 
DaUnPaso( PasoX, PasoY, 
DaUnPaso( PasoX, PasoY, 


DaUnPaso( PasoX, PasoY, 
SacarImagen( NOPASO ); 
delay( Pausa ); 


PASODER ); 
NOPASO ); 
PASOIZ ); 
NOPASO ); 


PASODER ); 
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void ComenzarJuego() 
4 
char Tecla; 
int Fin =00; 
Mov = UltMov = DERECHA; 
SacarImagen( NOPASO ); 
while ( !Fin ) 
t 
Tecla = getch(); 
if ( Tecla == 0x00 ) 
t 
Tecla = getch(); 
switch (Tecla) 
1 
case 'M' : DesplazarImagen( DERECHA ); break; 
case 'K' DesplazarImagen( IZQUIERDA ); break; 
case 'H” DesplazarImagen( ARRIBA ); break; 
case 'P” : DesplazarImagen( ABAJO ); break; 


) 


) 
else if (Tecla == 'F' || Tecla == 'f') Fin++ 
; a E 


woid BorrarImagen() 
t 
int 1, 3 


for( i=0; i<=2; i++ ) free( Destello[i] ); 
for( i=0; i< i++ ) 
for( j=0; J<=2; j++ ) free( Hombre[i][3] ); 


main() 


t 
Iniciar(); /* pone modo gráfico */ 
outtextxy(10,10," Un momento, por favor"); 
setactivepage( 1 ); 
CrearImagen(); /* crea y guarda las imáge: 
setactivepage( 0 ); 
clearviewport (); 
CrearLaberinto(); /* ¡construye el laberinto */ 
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ComenzarJuego(); 


Ak imicia el juego*/ 


BorrarImagen(); /* libera la memoria utilizada */ 
closegraph(); /* repone el modo texto */ 
y 
1*= = qas=ea 
/*  ANIMADO2.C Animación sencilla usando Gráficos en */ 
/*  Turbo-C -- Las imágenes se crean para tarjetas EGA */ 
/* O de superior resolución. Aunque CGA requiere */ 
/* ajustes en las imágenes, funcionará la demostración */ 


Hifdef _ TINY 


terror La demostración no funciona si se compila en el 


mode: 
Hendif 


<conio 
<stdio 


ttinclude 
ttinclude 
ttinclude 
ttinclude 
ttinclude 
ttinclude 
tinclude 


<stdar 
<graph: 
<math. 
"gprini 


Control. 
ModoGra 
MaxColo: 
Codigok: 


int 
int 
int 
int 


double 
int ES 


const 
const 


/* cambiar el valor 


lo TINY. 


«h> 
«h> 


<stdlib.h> 


g.h> 
ics.h> 
h> 
Es 


adorGrafico; 
fico; 
res; 

rror = 0; 
PI = 
PERA = 


3.1415; 
1; 


==2*/ 


para retardar las imágenes */ 


int ColorDer, Colorlzq, /(* color de las piernas 
derecha e izquierda */ 
AnguloSupDer, AnguloSupIzq, /* angulos superiores 
izquierdo y derecho */ 

Rodillalzgx, RodillalzqY, RodillaDerX, RodillaDerY, 
/* coord. de las rodillas */ 
AnguloInfDer, AngulolInfIzq, /* angulos inferiores 


derecho e izquierdo */ 
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Pielzgx, PielzqY, PieDerX, PieDerY, /* coord. de 
los pies */ 
uniones de las 
piernas */ 
PosX, PosY, ño del centro del cuerpo */ 
AnchoRotulo, Cuenta = 0; /* número de es que se 
presenta la imagen +*/ 


ArtSup, ArtInf, /* longitud de de 1 


void Iniciar() 


t 
ControladorGrafico = DETECT; 
initgraph( S£ControladorGrafico, £ModoGrafico, 
"CINNTCANBGI" )7 
CodigoError = graphresult (); 
if ( CodigoError != grOk ) 
t 
printf(" Error en el Sistema de Gráficos: %sin", 
grapherrormsg( CodigoError ) ); 
exit( 1 ); 
Y: 
MaxColores = getmaxcolor() + 1; 
PA 
double rad( int grados ) 
t 
return( PI * grados / 180 ); 
, 
double seno( int grados ) 
1 
return sin( rad( grados ) ); 
, 


double coseno( int grados ) 
t 
return cos( rad( grados ) ); 


) 


void Pausa() 

1 
if( kbhit() ) getch(); 
getch(); 
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void CrearCampo() 


1 
int Base = 152; 
line( 0, Base, 639, Base ); 
rectangle( 100, Base-10, 120, Base ); 
rectangle( 150, Base-15, 175, Base ); 
rectangle( 255, Base-20, 300, Base ); 
rectangle( 375, Base-10, 420, Base ); 
) 
void DibujarUnion() 
t 
int i, j, k = getcolor(); 
for( is-1; i<=1; i++ ) 
for( js=-1; j<=1; j++ ) 
putpixel( getx()+i, gety()+], k ); 
E) 


void ImagenCuerpo( int color ) 
t 


int i, j, Izquierda, Derecha, Arriba, Abajo, X, y; 


setcolor( color ); 

if( color ) if (MaxColores > 4) 
setcolor( Colorlzq ); 

moveto( PielzqxX, PielzqY ); 

DibujarUnion(); 

lineto( Rodillalzgx, RodillalzqY ); 

DibujarUnion(); 

lineto( PosX, PosY ); 

DibujarUnion(); 

if( color ) if (MaxColores >4) 
setcolor( ColorDer ); 

lineto( RodillaDerX, RodillaDerY ); 

DibujarUnion(); 

lineto( PieDerX, PieDerY ); 

DibujarUnion(); 

if( color ) setcolor(MaxColores -1); 


Abajo = PosY+10; 
Arriba = PosY-5; 
Izquierda PosX-11; 
Derecha = PosX+11; 
line( PosX, PosY, Izquierda, Arriba ); 


line( PosX, PosY, Derecha, Arriba ); 
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a 


line( PosX, PosY, PosX, Abajo ); 
line( Izquierda, Arriba, Derecha, Arriba ); 
line( Izquierda, Arriba, PosX, Abajo ); 
line( Derecha, Arriba, PosX, Abajo ); 
y = 1; 


gprintc( £AnchoRotulo, £y, "%d", Cuenta ); 
Cuenta++; 


void ComienzoCaminante () 


t 


) 


RodillalzgxX Pielzax; 

RodillalzqY = PielzqY-ArtInf; 

PosX = Pielzqx + seno( AnguloSuplzq ) * ArtSup; 

PosY = PielzqY + coseno( AnguloSuplzq ) * 
ArtSup - ArtInf; 

PieDerX = PosX + seno( AnguloSupDer ) * ArtSup; 

RodillaDerX = PieDerX; 

RodillaDerY = PieDerY-ArtInf; 

ImagenCuerpo( MaxColores-1 ); 


void CaminanteEnPie() 


( 


int RodillaX, RodillaY; 


while( AnguloSupIzqg<=150 ) 
1 
AnguloSuplzq++; 
Rodillax PosX - seno( AnguloSupIzq ) * ArtSup; 
RodillaY = PosY - coseno( AnguloSupIzq ) * ArtSup; 
if( (PielzgX-RodillaX) ££ (PielzqY-RodillaY) ) 
t 
ImagenCuerpo( 0 ); 
Rodillalzgx = RodillaX; 
RodillalzqY = RodillaY; 
AnguloInfDer = AngulolnfIzq = 
180 * atan2( (PielzgqX-Rodillalzqx), 
(PielzqY-RodillalzqY) ) / PI; 
Rodillalzqx = PielzgX - seno( Angulolnflzq ) * ArtInf; 
RodillaDerX = PieDerX + seno( AngulolInfDer ) * ArtInf; 
RodillaDerY = RodillalzqY = PielzqY - 
coseno( Angulolnflzqg ) * ArtInf; 
PosY = RodillalzqY + coseno( AnguloSupIzq ) * ArtSup; 
ImagenCuerpo( 15 ); 
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J 
J 
AnguloSupDer = AnguloSuplzq; 
AnguloInfDer = Angulolnflzq = 0; 
) 


void ImagenSuelo() 
y 
while( !getpixel( Pielzqx, PielzqY+3 ) ) 
1 
ImagenCuerpo( 0 ); 
RodillalzqY++; 
RodillaDerY++; 
PielzqY++; 
PieDerY++; 
PosY++; 
ImagenCuerpo( MaxColores-1 ); 


) 
void CaminaRecto() 
t 
int i; 
for( i=1; i<=30; i++ ) 
t /* mueve el pie derecho 30 grados hacia arriba */ 
ImagenCuerpo( 0 ); 
AnguloInfDer++; 
PieDerX = RodillaDerX + seno( AnguloInfDer ) 
* ArtInf; 
PieDerY = RodillaDerY + coseno( AnguloInfDer ) 
* ArtInf; 


ImagenCuerpo( MaxColores-1 ); 
delay( ESPERA ); 
) 


for( del; ¿<=307 d$+ ) 
t /* ajusta la pierna izquierda para avanzar el pie */ 
ImagenCuerpo( 0 ); 
AngulolnfIzq++; 
RodillalzqX = Pielzgx + seno( AngulolnfIzq ) 
* Artlnf; 
RodillalzqY = PielzqY - coseno( AngulolnflIzqg ) 
* ArtInf; 
PosX = Rodillalzgx + seno( AnguloSuplzq ) 
* ArtSup; 
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PosY = RodillalzqY + coseno( AnguloSuplzq ) 


* ArtSup; 


RodillaDerX = PosX + seno( AnguloSupDer ) 


* ArtSup; 


RodillaDerY = PosY - coseno( AnguloSupDer ) 


* ArtSup; 


PieDerX = RodillaDerX + seno( AnguloInfDer ) 


* ArtInf; 


PieDerY = RodillaDerY + coseno( AnguloInfDer ) 


* ArtInf; 


ImagenCuerpo( MaxColores-1 ); 


delay( ESPERA ); 


for( i=1; 1<=30; 1l++ ) 


( 


/* mueve h 


ImagenCuerpo( 0 ); 
AnguloInfDer--; 


la pierna derecha 
para levantarse */ 


RodillaDerX = PieDerX - seno( AnguloInfDer ) 


* ArtInf; 


RodillaDerY = PieDerY - coseno( AnguloInfDer ) 


* ArtInf; 
PosX = RodillaDerX 
* ArtSup; 
PosY = RodillaDerY 
* ArtSup; 
RodillalzgX = PosX 
* ArtSup; 
RodillalzqY = PosY 
* ArtSup; 


seno( AnguloSupDer ) 


coseno( AnguloSupDer ) 


seno( AnguloSuplzqg ) 


coseno( AnguloSupIzq ) 


PielzgxX = Rodillalzgx - seno( AnguloInfIzq ) 


* ArtInf; 


PielzqY = RodillalzgY + coseno( AnguloInfIzq ) 


* ArtInf; 


ImagenCuerpo( MaxColores-1 ); 


delay( ESPERA ); 


for( i=1; i<=30; i++ ) 


/* mueve h 


ImagenCuerpo( 0 ); 
AngulolnfIzq--; 


izquierda 
para levantarse */ 


a pierna 


Pielzgx = RodillalzgX - seno( AnguloInfIzg ) 


* ArtInf; 
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PielzqY = RodillalzqY + coseno( AnguloInfIzq ) 
* ArtInf; 
ImagenCuerpo( MaxColores-1 ); 
delay( ESPERA ); 
J 
ImagenSuelo(); 
) 


main() 
1 
Int 
Iniciar(); /* pone modo gráfico */ 


/* valores iniciales para Paco (el muñeco) */ 
AnguloSupDer = 30; AnguloSuplzq = 30; 
AngulolInfDer = 0; AngulolnfIzq = 0; 


ArtSup = 30; ArtInf = 30; 

Pielzgx = 30; PielzqY = PieDerY = 150; 
ColorDer = BLUE; ColorIzq = RED; 
outtextxy(1,1," Cuenta = "); 


AnchoRotulo = textwidth(" Cuenta = "); 


CrearCampo(); 

ComienzoCaminante (); 

CaminanteEnPie(); 

for( i=1; i<=20; i++ ) CaminaRecto(); 

Pausa(); 

closegraph(); /*. repone modo texto */ 


Visa Las Funciones LineaXOR y ImprimirXOR */ 


void ImprimirXOR( int x, int y, int color ) 
si 

putpixel( x, y, color * getpixel( x, y ) ); 
) 


void LineaXOR( int x1, int yl, int x2, int y2 ) 
t 

int i, j, k = getcolor(); 

int x =10, y = 10; 
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double pendiente; 


if( abs (x1-x2) > abs(yl - 
de 
if (x1 > x2) 


1 

io = xl; xl = x2; x2 
dl =yl; yl=y25  y2 
y 

j=x2- x1; 

pendiente (double) (y2 


for (i=1; i<=j; i++) 
ImprimirXOR( x1+i, yl+ 
J 
else 
t 
if (yl > y2) 


J = y2 - yl; 

pendiente = (double) (x2 

for ( il; i<=]; d++) 
ImprimirXOR( x1+(int) 


y2) ) 


i; 
i5 


AER Y 


(int) (i * pendiente), k ); 


yl; yl = y2; y2 = db; 
x1; xl = x2; x2= id; 


-=x1) / 1; 


(i * pendiente), yl + 1, k ); 


A 


Gráficos de tortuga 


El concepto original de gráficos de tortuga fue propuesto por Seymour Papert 
y sus colaboradores en el MIT como un método conveniente para la creación 
de gráficos sin necesidad de comprender las coordenadas cartesianas. Esta 
visión tan básica consistía en una tortuga capaz de caminar a lo largo de una 
línea recta una distancia determinada, en un determinado ángulo, y dibujar 
una línea sobre su pista, como la línea que deja la cola de una tortuga al 
atravesar una playa arenosa. 

Este concepto básico resultó popular. Por una parte, los chiquillos jóvenes 
podrían utilizar la tortuga para programar imágenes; por otra parte, los pro- 
gramadores expertos encontrarían en los gráficos de tortuga una herramienta 
excelente y capaz para crear imágenes interesantes mediante algoritmos ele- 
mentales. Estos algoritmos eran más sencillos que aquellos que permitían 
obtener resultados similares a través del uso de coordenadas cartesianas. 

La tortuga desarrollada en este capítulo ha sido diseñada para adaptarse a 
distintas posibilidades de vídeo y de pantalla, manipulando los colores admi- 
tidos por el hardware y ajustando el movimiento para que coincida con las 
proporciones marcadas por el factor de aspecto. 

La utilidad Tortuga.i proporciona 29 funciones para el tratamiento comple- 
to de la tortuga. No todas ellas se orientan al uso directo; algunas sólo se han 
desarrollado para ser llamadas por otras funciones, por lo que se ha incluído 
el código fuente completo de cada una de ellas. Por supuesto, Vd. puede 
modificar o revisar estas funciones para conseguir sus propias aplicaciones de 
tortugas “mutantes”. 

Las funciones de tortuga están desarrolladas como gráficos convencionales 
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en C, por lo que constituyen un ámbito ideal para experimentar su reimplan- 
tación como módulos orientados a objetos. 

Al igual que se hace con otras funciones gráficas, los gráficos de tortuga 
trabajan en el contexto de una ventana, pero la ventana de tortuga es inde- 
pendiente de las ventanas gráficas. Las ventanas gráficas y las ventanas de 
tortuga pueden utilizarse a la vez. 

Las rutinas de la tortuga manipulan coordenadas de tortuga. La posición 
centro (coordenadas de tortuga 0,0) está en el centro de la ventana de la 
tortuga activa, donde los valores positivos se miden hacia la derecha (sobre el 
eje x) y hacia arriba (eje y), y los negativos hacia la izquierda (sobre el eje x) 
y hacia abajo (eje y). Los ángulos de la tortuga siguen las convenciones de 
proyección de pixels (mapping) y comienzan con 0% en la parte superior o 
NORTE, 90% como la derecha o ESTE, 180% como la parte inferior o SUR, y 
270% como la izquierda u OESTE. Tanto los 0% como 360% son ángulos váli- 
dos, pero todo ángulo o rotación superior a los 360% o inferior a los 0% se 
reduce al rango 0%-360%, Las cuatro direcciones cardinales: NORTE, ESTE, 
SUR y OESTE son constantes definidas en Tortuga.i. 

Como probablemente ya haya observado, las coordenadas y los ángulos de 
la tortuga no se corresponden con los ángulos y las coordenadas que se utili- 
zan en el sistema gráfico de Turbo C++ ni con el sistema coordenado de las 
pantallas habituales. Por convención (como las dictadas por las necesidades 
de direccionamiento de la pantalla), los valores sobre el eje y toman sus 
incrementos de arriba abajo y se decrementan en el mismo rango. Al mismo 
tiempo, el sistema gráfico de Turbo C++ considera que el ángulo cero se 
define horizontalmente hacia la derecha (ESTE), y los incrementos angulares 
se dan en sentido contrario a las agujas del reloj; sin embargo, los ángulos de 
la tortuga colocan el cero en la parte superior (NORTE) y los incrementos 
angulares en el sentido de las agujas del reloj. 


Estas rotaciones y direcciones no son totalmente arbitrarias. Los ángulos y 
las direcciones de la tortuga siguen las convenciones culturales clásicas esta- 
blecidas hace tiempo y son casi instintivas: la brújula gira en el sentido del 
reloj, los gráficos toman los incrementos hacia arriba, el rey está en la cima 
de la montaña. Por el contrario, las rotaciones y las direcciones, ya familiares 
para el programador, se fraguaron bajo diferentes imposiciones. 

Puesto que el concepto básico que subyace en los gráficos de tortuga era 
hacer asequible y aceptable el diseño a los entornos que no se correspondían 
con los de los computadores sofisticados, los ángulos y las direcciones/valores 
de la tortuga se escribieron para seguir las convenciones más familiares y 
comunes. Por las mismas razones, este grupo de órdenes de tortuga siguen 
manteniendo los estándares previos, a pesar de entrañar cierto grado de con- 
fusión para un programador ocasional. 
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Ordenes para los gráficos de tortuga 


La utilidad de los gráficos de tortuga presupone que Turbo C++ haya iniciado 
el sistema gráfico y haya seleccionado un controlador y un modo gráficos. 
Hecho esto, los gráficos de tortuga se inician a través de su propia función: 
inicia_tortuga. 


inicia_tortuga 


Sintaxis: inicia _tortuga (); 


Dado que los gráficos de tortuga no necesitan controladores especiales de 
dispositivos ni modos aparte de los provistos por la iniciación gráfica normal, 
la función inicia_tortuga se cuida de la ejecución de varias tareas importantes, 
comenzando con la llamada a la función crea_tortuga para dibujar un cursor 
de tortuga y para guardar la imagen del cursor. La función inicia_tortuga 
calcula además el factor de aspecto de la pantalla vigente (FactAsp), establece 
una ventana de tortuga inicial y activa determinadas condiciones por omisión. 
Entre estas condiciones se incluyen: el color del lápiz será el mayor de los 
colores válidos, el cursor de la tortuga se pondrá visible, el enlace (wrap) de 
la pantalla se desactivará, el lápiz de la tortuga se colocará en la posición de 
dibujo, y la orientación inicial será NORTE (0). 

La corrección debida al factor de aspecto de la pantalla se aplica automá- 
ticamente al eje y. 


ventana_tortuga 


Sintaxis: ventana _tortuga (centrox, centroy, 
anchura, altura); 


La función ventana_tortuga define un área de pantalla como la ventana de la 
tortuga activa. A diferencia de la función de la ventana gráfica (setviewport), 
los dos primeros argumentos de ventana_tortuga son las coordenadas x e y del 
centro mientras que las dos últimas coordenadas proporcionan la anchura y la 
altura de la ventana. 

La ventana está centrada en la posición (0,0) de coordenadas de la tortuga 
(equivalentes a la coordenada centrox, centroy absoluta de la pantalla ) e 
inicialmente está configurada para incluir la pantalla completa, salvo un mar- 
gen de tres pixels. Este margen se establece por omisión y permite asegurar 
que la función putimage, que manipula el cursor de la tortuga, no recibirá 
llamadas con valores de coordenadas que caigan fuera de los límites válidos 
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de la pantalla (un error que impediría que el cursor apareciera de forma co- 
rrecta). 

La función borra_pantalla_tortuga borra la ventana de la tortuga; las fun- 
ciones esconde_tortuga, muestra_tortuga, no_enlazar, enlazar y retardo_tortu- 
ga controlan los parámetros de visualización relacionados con el entorno de 
la tortuga. 


borra_pantalla_tortuga 


Sintaxis: borra_pantalla_tortuga (); 


Esta función adopta la forma de actuación de las funciones de la ventana 
gráfica de Turbo C++ en cuanto al borrado y restituye posteriormente el 
entorno de definición de la ventana gráfica original. 


esconde_tortuga y muestra_tortuga 


Sintaxis: esconde_tortuga (); 
Sintaxis: muestra_tortuga (); 


Las funciones muestra_tortuga y esconde_tortuga muestran y esconden el cur- 
sor de la tortuga en función del valor del indicador visible. En este programa, 
la tortuga está visible inicialmente. Otros programas basados en los gráficos 
de tortuga puede que prefieran ocultar la tortuga inicialmente. 


enlazar y no_enlazar 


Sintaxis: no_enlazar (); 
Sintaxis: enlazar (); 


Esta funciones controlan la respuesta de la tortuga cuando se alcanzan los 
valores límites de la ventana de ésta, En caso de ejecutar la función enlazar, 
si la tortuga llegara a los límites de la pantalla, sería reintroducida por el lado 
opuesto. 

Si se ha ejecutado no_enlazar, la tortuga podrá moverse libremente más 
allá de los límites de la ventana de tortuga (o incluso fuera de los límites de 
la pantalla), pero su figura no se dibujará más allá de los límites de aquélla. 


retardo_tortuga 


Sintaxis: retardo tortuga (milisegundos); 
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Por omisión, la tortuga se mueve tan rápido como puede, pero no siempre es 
deseable que esto suceda, La función retardo_tortuga permite especificar un 
retardo, en milisegundos, entre dos pasos sucesivos de aquélla (entre despla- 
zamientos de pixels). 

Además, si la tortuga no está en la pantalla (fuera de la ventana de tortuga) 
el retardo se desactiva. Esto permite evitar largas esperas asociadas a cual- 
quier nadería que tenga lugar fuera de la ventana de la tortuga activa y no 
afecta a la visualización ni a los puntos situados fuera de la pantalla y utili- 
zados para la creación de las líneas. 


Desplazamientos de la tortuga 


Los desplazamientos de la tortuga se controlan por medio de tres factores: 
posición, distancia y dirección. Las funciones de posición proporcionan des- 
plazamientos absolutos; las funciones de distancia proporcionan las distancias 
que deben recorrerse a lo largo del rumbo actual; las funciones de dirección 
indican los rumbos que deben seguir los desplazamientos. 


centro 


Sintaxis: centro (); 

Esta función desplaza el curso de la tortuga hacia la posición de coordena- 
das (0,0) en el centro de la ventana de la tortuga, sin dibujar el rastro del 
desplazamiento. Si se hubiera ejecutado la función retardo_tortuga previa- 
mente, el cursor se habría desplazado inmediatamente, pero no se habría 
producido ningún movimiento posterior hasta que el tiempo de retardo 
hubiera concluído. 


pon_posicion 


Sintaxis: pon_posicion (ejex, ejey); 


Esta función desplaza el cursor de la tortuga con carácter inmediato a la 
coordenada de tortuga especificada. Este desplazamiento no deja ningún 
rastro visual. Si se hubiera ejecutado previamente la función retardo_tortu- 
ga, el cursor se habría desplazado inmediatamente, pero no habría tenido 
lugar ningún desplazamiento posterior hasta que hubiera concluído el tiem- 
po de retardo. 
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avanza 


Sintaxis: avanza (distancia); 

Esta función constituye el corazón de los gráficos de tortuga. Su actuación 
consiste en provocar el desplazamiento del cursor de tortuga desde la posición 
vigente y en la distancia especificada a lo largo del rumbo actual. El despla- 
zamiento se efectúa pixel a pixel; si el lápiz de la tortuga estuviese activo 
(dibujar = CIERTO) se dibujaría una línea con el color indicado por colorla- 
piz. Si el lápiz de la tortuga no estuviera activo, el cursor de tortuga se 
desplazaría (si visible = CIERTO) sin dejar rastro. Si visible fuera FALSO, el 
cursor de tortuga se desplazaría de manera invisible. 

Si distancia fuera negativa, el desplazamiento se llevaría a cabo en el 
sentido opuesto al rumbo actual. Si hubiera algún tiempo de retardo pendiente, 
el desplazamiento se detendría tras cada paso hasta que aquél hubiera termi- 
nado. El retardo aplicado al desplazamiento es independiente de los valores 
de los indicadores dibujar y visible. 

La función avanza utiliza las funciones coseno y seno para calcular las 
distancias a los ejes x e y, y la función paso_tortuga para llevar a cabo el 
desplazamiento actual. 


void avanza( int distancia ) 
t 
int i, xdistancia, ydistancia, 
origx = posx, origy = posy; 
double pendiente; 
xdistancia = seno( direccion ) * distancia; 
ydistancia = coseno( direccion ) * distancia * FactAsp; 


Algunos controladores de tortuga no se ajustan al aspecto de la pantalla. 
En esta aplicación, la variable FactAsp se utiliza para ajustar los desplaza- 
mientos horizontales y verticales con objeto de conseguir que las longitudes 
de las líneas representadas sean las mismas en todas las direcciones. Un des- 
plazamiento de 50 unidades sobre el eje x provoca un desplazamiento de la 
tortuga de 50 pixels. El factor de aspecto se encarga de conseguir la misma 
distancia sobre el eje y para el controlador y el modo actuales. Consulte la 
función dibujacadena. 

El siguiente paso tras el cálculo de los desplazamientos x e y (que se 
obtienen de las variables direccion y distancia) consiste en una serie de deci- 
siones que permiten conocer qué es mayor, xdistancia o ydistancia. 


if( abs( xdistancia ) > abs( ydistancia ) ) 
A 
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El trazado de una línea comienza siempre sobre el eje con mayor variación; 
luego, para cada punto de este eje, se calcula el mínimo del eje (calculando 
la pendiente de la línea). 


pendiente = (double) ydistancia / xdistancia; 


Si xdistancia es positiva, por cada posición sobre el eje x se calculará una 
posición sobre el eje y, y se imprimirá. Todo ello irá dentro de un bucle 
incremental. 


if( xdistancia > 0 ) 
for( i=1; i<=xdistancia; i++ ) 


paso _tortuga( origx + i, 
origy + (int)( i * pendiente )); 


En caso contrario se utilizará un bucle decremental, siendo idénticos los 
cálculos internos. 


else 
for( i= -1; i >= xdistancia; i-- ) 


paso _tortuga( origx + i, 
origy + (int)( i * pendiente )); 


Como alternativa, se calcularán las posiciones del eje x a lo largo del eje 


else 
t 
pendiente = (double) xdistancia / ydistancia; 
if( ydistancia > 0 ) 
for( i = 1; i <= ydistancia; i++ ) 
paso_tortuga( origx + (int) ( i * pendiente), 
origy + i ); 
else 
for( i= -1; i >= ydistancia; i-- ) 
paso _tortuga( origx + (int) ( i * pendiente), 
origy + i ); 
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retrocede 


Sintaxis: retrocede (distancia); 


La función retrocede desplaza la tortuga de acuerdo a las mismas reglas que 
utiliza la función avanza, con la diferencia de que el desplazamiento se da en 
el sentido contrario al rumbo actual. Si distancia es negativa, el desplazamien- 
to se hará hacia delante, 


dibujacadena 


Sintaxis: dibujacadena (int escala, char cadena[150]); 


La función difiere de las funciones avanza y retrocede en dos aspectos impor- 
tantes: primero, no-se aplica ninguna corrección al factor de aspecto de la 
pantalla; segundo, los desplazamientos se llevan a cabo en pasos absolutos de 
pixels. El motivo de esta actuación radica en que al intentar minimizar los 
dibujos, los cálculos sobre figuras muy próximas basados en la pendiente 
producen un error acumulado derivado del redondeo de los números decima- 
les a enteros. Los puntos finales así calculados no siempre coinciden con los 
puntos iniciales, dejando esquinas abiertas o desiguales en las figuras resul- 
tantes. El uso de la técnica de los desplazamientos absolutos a nivel de pixels 
aplicada a figuras pequeñas y próximas elimina estos errores, dando lugar a 
un acabado igualado. 

La función dibujacadena admite dos parámetros, un multiplicador de escala 
y un array de caracteres que describe los desplazamientos que dan lugar a una 
figura, un carácter de tortuga, un logotipo o cualquier otro dibujo. Este modo 
de dibujar restringe el desplazamiento de la tortuga a ocho direcciones, las 
cuatro direcciones cardinales y las cuatro direcciones diagonales que existen 
entre aquéllas (consulte EscribeTortuga para más detalles). 


void dibujacadena (int escala, char cadena[150] ) 


t 
int distancia, J], k, Xx, Y; 


Actuando en respuesta a cada elemento de la cadena de instrucciones se 
construye un bucle que recorre el array cadena. 


for (j=0; j <= strlen( cadena ); j++) 
z 

distancia = escala; 

switch ( cadena[j] ) 

1 
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Los caracteres del rango a-h marcan la dirección del paso (ver Figura 
11-1). Mientras uno de los dos, bien x, bien y, sea distinto de cero, el despla- 
zamiento de la tortuga tendrá lugar una vez ejecutado el selector switch/case. 
Cuando se selecciona una dirección, la tortuga da un paso adelante en esa 
misma dirección. 


case 'a': Xx y = -1; break; 
case 'b': x y break; 
case 'c':z x y break; 
case 'd': x Y break; 
case 'e': x y break; 
case '£": X y break; 
case 'g': Xx y break; 
case 'h': Xx Y break; 


Figura 11-1 Brújula para las fuentes de tortuga 


Los caracteres m y p llaman a las funciones sube_lapiz y baja_lapiz tras 
cargar el valor cero en los incrementos de paso x e y. Como respuesta a esto, 
la tortuga no realiza ningún desplazamiento. 


case 'm': x= 0; 
case 'p': x= 0; 


= 0; baja_lapiz(); break; 
0; sube_lapiz(); break; 
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Los caracteres de instrucción comprendidos en el rango 2-0 continúan el 
desplazamiento en la dirección activa, cargando en distancia un valor que 
depende de la escala y del multiplicador. Puesto que la instrucción que selec- 
ciona la dirección del movimiento provoca el avance de la tortuga en un paso 
(con distancia igual a escala), la instrucción de desplazamiento de tipo / no 
supone ninguna acción, por lo que puede ignorarse. Las instrucciones de tipo 
2 se admiten, pero no provocan ninguna acción, dejando el valor (2-1) *escala 
en la variable distancia ( que es el que ya contenía), por lo que sólo necesitan 
llevar la instrucción break. Las instrucciones comprendidas entre 3 y 9 multi- 
plican la distancia en una unidad menos que el entero de la instrucción; una 
instrucción O se toma como la equivalente de la 10, por lo que distancia es 
nueve veces el valor de escala (10-1). 


case '2': break; 
case '3': distancia = escala * 2; break; 
case '4': distancia = escala * 3; break; 
case '5': distancia = escala * 4; break; 
case '6': distancia = escala * 5; break; 
case '7': distancia = escala * 6; break; 
case '8': distancia = escala * 7; break; 
case '9': distancia = escala * 8; break; 
* 


case '0': distancia = escala ; break; 
default : x=0; y = 0; 


El caso por omisión de la sentencia switch carga valores nulos en las 
variables de paso x e y; se entiende que no se ha reconocido el carácter de 
instrucción. Esto evita posibles errores. Esto también podría aplicarse si se 
quisiera delimitar cada instrucción con espacios, comas, barras oblicuas o 
incluso varios caracteres, con objeto de hacer las instrucciones más legibles. 

Por último, la tortuga avanza paso a paso con el rumbo adecuado, a lo 
largo de la distancia indicada. 


for( k=1; k<=distancia; k++ ) 
paso_tortugal Pposx + X, Posy + y ); 


pon_rumbo 


Sintaxis: pon_rumbo (grados); 


La función pon_rumbo define el rumbo vigente con un valor absoluto. 
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El argumento grados puede ser cualquier valor entero o cualquiera de los 
puntos cardinales (NORTE, ESTE, SUR, OESTE) definidos en Tortuga.i. 

Si se pasa un valor negativo a pon_rumbo o el valor de grados supera los 
360%, entonces la función corrige direccion corrige el rumbo para dejarlo 
dentro del rango 0%-360%. 


gira_izquierda y gira_derecha 


Sintaxis: gira_izquierda (angulo); 
Sintaxis: gira derecha (angulo); 


La función gira_izquierda (sentido contrario a las agujas del reloj) reduce el 
rumbo vigente en angulo grados. La función gira derecha (sentido de las 
agujas del reloj) aumenta el rumbo en angulo grados. En cualquiera de las dos 
funciones, el hecho de recibir un argumento negativo invierte el sentido, el 
ángulo actual cambia y tanto gira_izquierda como gira_derecha hacen uso de 
la función corrige direccion para asegurar que el rumbo se mantiene en el 
rango comprendido entre los 0% y los 360%, 


Dibujo de la tortuga 


El entorno de los gráficos de tortuga proporciona tres funciones que permiten 
controlar el proceso de creación de los dibujos: pon_color_lapiz para selec- 
cionar el color de los dibujos y baja_lapiz y sube_lapiz para bajar y levantar 
el lápiz durante los desplazamientos. 


pon_color_lapiz 
Sintaxis: pon_color_lapiz (color); 


Esta función selecciona el color con el que se va a dibujar la tortuga; para ello 
admite nombres de colores definidos en graphics.h. En los modos monocromo 
(CGAHI, por ejemplo), el color se limita a BLACK o WHITE. En los modos 
con posible selección de paleta de colores (CGACO, por ejemplo), los valores 
se limitan a los predefinidos en la paleta seleccionada. En cualquier otro caso, 
el color de los dibujos puede ser uno cualquiera de los colores válidos y 
admitidos. 
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sube_lapiz y baja_lapiz 


Sintaxis: sube_lapiz(); 
Sintaxis: baja_lapiz(); 


Las funciones sube_lapiz y baja_lapiz actúan exactamente de la misma forma 
que sus propios nombres indican, cargando un indicador dibujar con los va- 
lores FALSO o CIERTO, respectivamente. Si dibujar es FALSO (activado 
por sube_lapiz), los desplazamientos de la tortuga no dejan un rastro visual. 
Si dibujar es CIERTO (activado por baja_lapiz), los desplazamientos de la 
tortuga dejan un rastro visual (una línea) del mismo color que colorlapiz. 


Información sobre la tortuga 


Para tener conocimiento de las coordenadas de la tortuga y de los posibles 
valores asociados a su entorno existen varias funciones. 


rumbo 
Sintaxis: angulo = rumbo(); 
La función rumbo devuelve un valor entero con el que se indica el rumbo que 
está siguiendo la tortuga. 

posicion_tortuga 


Sintaxis: if (posicion _tortuga() ) ... ; 


Esta función devuelve un valor booleano: CIERTO, si la posición actual de la 
tortuga está dentro de los límites de la ventana de tortuga, FALSO, si la 
tortuga está fuera de los límites de la ventana. 


xcor e ycor 


Sintaxis: ejex = xcor(); 
Sintaxis: ejey = ycor(); 


Las funciones xcor e ycor devuelven las coordenadas x e y del cursor de la 
tortuga. 
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Demostración de los gráficos de tortuga (TORTUGA.C) 


Los gráficos de tortuga se convierten en un medio excelente para los progra- 
mas elementales de dibujo o para los que vayan a crear distintos tipos de 
figuras o ilustraciones. Sólo requieren de un mínimo de información sobre 
programación. En la demostración de la tortuga (TORTUGA.C) se generan 
como ejemplo dos figuras complejas, utilizando para ello instrucciones muy 
sencillas. Posteriormente, con el uso de la función EscribeTortuga se dibuja- 
rán distintos caracteres de tortuga y un logotipo. 

El laberinto utilizado en el capítulo 10 también podría haberse dibujado 
por medio de los gráficos de tortuga. Para la creación de un laberinto aleatorio 
podrían utilizarse los gráficos de tortuga en conjunción con un algoritmo de 
generación. En principio, los gráficos de tortuga tan sólo son una herramienta 
de programación, una alternativa a las funciones orientadas a líneas de Turbo 
C++ y un punto de entrada para la creación de formas complejas a partir de 
algoritmos sencillos. 


EscribeTortuga 


Sintaxis: EscribeTortuga (ejex, ejey, escala, color, 
cadena); 


La función EscribeTortuga dibuja caracteres definidos con un conjunto senci- 
llo de instrucciones que pueden utilizarse para crear fuentes propias, carac- 
teres especiales, logotipos u otros elementos gráficos. 

El juego de caracteres utilizado en la demostración de la tortuga sólo con- 
tiene ocho de estos caracteres y se ha diseñado principalmente para demostrar 
cómo puede crearse. En general, los caracteres de tortuga son similares a las 
fuentes de caracteres segmentados de Turbo Pascal y Turbo C++ (consulte el 
capítulo 15, El editor de fuentes Turbo), aunque las imágenes de estos y los 
métodos utilizados aquí no son ni sofisticados ni extensos. 

Las funciones EscribeTortuga y dibujacadena podrían realizarse de distin- 
tas formas: las definiciones de los caracteres podrían condensarse y almace- 
narse en archivos binarios, o bien rediseñarse para incluir cálculos de curvas 
(aunque las curvas no se manipulan con las funciones de la tortuga) que 
permitan obtener caracteres de contorno redondeado. El método utilizado se 
ha elegido por la sencillez y la facilidad que aporta a la demostración. Dado 
que no es posible manipular curvas, la segmentación de los caracteres se 
efectúa mediante pequeños pasos en las ocho direcciones posibles, según se 
muestra en la Figura 11-1, La Figura 11-2 muestra dos caracteres de tortuga, 
e e i, representados en forma de vectores por instrucciones de EscribeTortuga. 


222 


PROGRAMACIÓN DE GRÁFICOS EN TURBO C++ 


Figura 11-2 Trazado de los caracteres "e" e "¡" 


OREA 


Los puntos de comienzo y fin de cada carácter se muestran con marcas en 
forma de cruces circunscritas ( círculos que encierran una cruz). La cadena de 
instrucción necesaria para generar el carácter e es: 


pbama5b2c04d42e2f294edc3bcef294h2pb2a3mbc2dfg2hpa7 

Nota: Las instrucciones en letras cursivas se ejecutan con el lápiz arriba; 
las otras, con el lápiz abajo. 

Cada segmento comienza con la especificación de una dirección, pudiendo 
seguirle un número comprendido en el rango [2..0] donde se indica el número 
de pasos que debe darse en dicha dirección. Si no se especifica ningún número 
a continuación de la clave de dirección, sólo se ejecutará un paso; por lo tanto, 
un 1 es redundante, por lo que no se utiliza; un cero permite avanzar 10 
posiciones. Distancias superiores a los diez pasos necesitan la codificación de 
varias instrucciones. Un desplazamiento de 16 pasos a la derecha se codifica- 
ría de la forma c8c8, en vez de cl6. 
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Figura 11-4 Trazado del caracter "t" 


tinuación se muestra el resto de caracteres utilizados en la demostración de la 
tortuga, junto a sus cadenas de código: 


M / se codifica como: pbma7a7bde7e7fhpdc2 
M > se codifica como: pema9bce2b2c2d2eghg2f2e6g2pc9 
Mi se codifica como: pb2cmasg3hbc3a3bde3c3dfg3e7dcdfg2h2pd2c5 


Como se puede ver, el carácter + comienza en un punto interior de la 
extensión izquierda de la barra que forma la cruz (según nos deja ver la 
marca). Este desplazamiento permite que el carácter se ajuste mejor a otras 
letras, dando un aspecto de mayor continuidad. Los caracteres / y r se mues- 
tran en la Figura 11-3. La f se muestra en la Figura 11-4. 
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Figura 11-3 Trazado de los caracteres "l' e 'r' 


Referente a las direcciones, decir que se utilizan otras dos instrucciones, p 
y m. En la cadena de instrucción utilizada para la letra e, la instrucción p 
llama a sube_lapiz para que las siguientes dos instrucciones de desplazamien- 
to, ba, se ejecuten sin dejar la consiguiente línea de rastro. La instrucción m 
llama a baja_lapiz para que los siguientes grupos de instrucciones dibujen el 
contorno del carácter. A continuación, se sucede otra función sube_lapiz se- 
guida de b2a3 para ubicar a la tortuga en un punto tal que permita dibujar el 
"ojo" de la letra e. Las tres últimas instrucciones, pd7, desplazan la tortuga, 
sin rastro alguno, hacia la posición final. 

La tortuga finaliza en la misma horizontal en la que comenzó pero un pixel 
más allá del carácter, dejando un estrecho margen a ambos lados. 

El carácter ¿ se codifica de la forma: pema9bpamhabdefpemde9g2pc3. La 
codificación de estos dos caracteres puede seguirse en la Figura 11-2. A con- 
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Figura 11-4 Trazado del caracter "t" 


tinuación se muestra el resto de caracteres utilizados en la demostración de la 
tortuga, junto a sus cadenas de código: 


M / se codifica como: pbma7a7bde7e7fhpde2 
M y se codifica como: pema9bce2b2c2d2eghg2f2e6g2pc9 
M / se codifica como: pb2cmasg3hbc3a3bde3c3dfg3e7dcdfe2h2pd2c5 


Como se puede ver, el carácter £ comienza en un punto interior de la 
extensión izquierda de la barra que forma la cruz (según nos deja ver la 
marca). Este desplazamiento permite que el carácter se ajuste mejor a otras 
letras, dando un aspecto de mayor continuidad. Los caracteres ! y r se mues- 
tran en la Figura 11-3. La f se muestra en la Figura 11-4. 
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Los caracteres pueden ajustarse por la derecha o por la izquierda. En mu- 
chos casos, se puede proceder a un ajuste especial de pares de letras, con el 
fin de provocar una armonía visual. Por ejemplo, los caracteres AV se suelen 
ajustar de forma que la esquina superior izquierda de la V pueda solaparse 
con la esquina inferior derecha de la A. En nuestro caso no se ha previsto el 
ajuste de pares de letras, aunque se utiliza con mucha frecuencia en el proceso 
de textos. 


La u se codifica como: pbama7bdeódc2ba6bde7deghfg4h2pd2c7 


En este caso, el carácter u finaliza en el rabillo de la derecha, en lugar de 
dejar un margen de pixels (consulte la Figura 11-5). Al igual que sucede con 
el ajuste de la £, esto proporciona un mejor aspecto visual cuando el carácter 
forma parte de una palabra. 

El carácter w es considerablemente más ancho que cualquiera de los vistos 
anteriormente, pero todavía es capaz de reservar un pixel para su margen 
derecho y otro para el izquierdo (consulte la Figura 11-6). Al escribir todos 
los caracteres juntos, como mostrará el programa de demostración, se obser- 
vará que presentan un aspecto proporcionado y de continuidad. 

Como indica el código del programa de demostración, la función Escribe- 
Tortuga se llama con cinco argumentos: la posición de pantalla x e y (en 
coordenadas de tortuga), un factor de escala, un argumento de color y la 
cadena que ha de escribirse, 


void EscribeTortuga( int x, int y, int escala, 
int color, char cadena[ 100 ] ) 


int i; 

char Logotipo[ 125 ] = 
"pcmaBa8b2c8c8c8e8e8f2g8g8g8aBa8c8c8ce" 
"f2g0g0e5b2c0c0a5f2e39999a392e5c7c8c7" 
"f2g0g0e5b2c0c0a5f2e39999a392e5c8c8c8pcd"; 


A diferencia de la mayoría de las funciones de cadena, cadena no es un 
puntero a una cadena, sino un array de caracteres, al igual que la variable 
local Logotipo. Este tratamiento se debe a que la función EscribeTortuga 
manipula las distintas cadenas como arrays de elementos y utiliza los elemen- 
tos individuales como instrucciones. Esto mismo se podría haber llevado a 
cabo con punteros, pero es más sencillo de la manera en que se ha visto. 


El array Logotipo se define en su declaración, pero también podría haberse 
pasado directamente a la función dibujacadena desde cualquier otra fuente. 
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Figura 11-5 Trazado del caracter "u" 


Figura 11-6 Trazado del caracter 'w" 


T T ] 
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Este tratamiento se eligió sólo porque era el más conveniente para esta de- 
mostración. 

El argumento color permite el paso de parámetros de color con la cadena 
que se muestra. Es más, si se pasa un valor negativo se producirá la selección 
de un color al azar por cada carácter que vaya a ser dibujado. 


if (color <= MaxColores) pon_color_lapiz (color); 


El factor escala es un multiplicador que parametriza el tamaño de los 
caracteres. Los factores de escala negativos y cero no están permitidos. 


if ( escala <=0 ) escala = 1; 


La posición inicial de la pantalla se ubica en (x,y); luego se ejecutará un 
bucle que recorrerá la longitud de la cadena que vaya a escribirse: 


pon_posicion(x,y); 
for (1=0; i <= strlen (cadena); i++) 
t 
if (color < 0) 
pon_color_lapiz ( random (MaxColores) + 1); 


A medida que el bucle avanza, cada uno de los elementos de la cadena se 
va enviando a la función dibujacadena (se entiende que cada elemento es una 
instrucción): 


switch( cadena[ i ] ) 

t 

case ' ': dibujacadena( escala, "pc6"); 

break; 

case 'e': dibujacadena( escala, 
"pbama6b2c4d2e2f2g4edc3bc" 
"ef2g4h2pb2a3mbc2dfg2hpd7" ); 
break; 

case 'i': dibujacadena( escala, 
"pcma9bpamhabdefpemde9g2pc3" ); 
break; 


case '1': dibujacadena( escala, 
"pbma7a7bde7e7fhpdc2"); 
break; 

case 'r': dibujacadena( escala, 


"pcma9bce2b2c242eghg2£2e692pc9" ); 
break; 
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case 't': dibujacadena( escala, 
"pb2cma8g3hbc3a3bde3c3dfg3" 
"e7dcdfg2h2pd2c5" ); 
break; 

case 'u': dibujacadena( escala, 
"pbama7bde6dc2ba6bde7deghfg4h2pd2c7" ); 
break; 

case 'w”: dibujacadena( escala, 
"pbama7bde6dc2ba3bde3dc2b" 
"a6bde7f2g4hfg4h2pd2c6c7" ); 
break; 


Tras la escritura de cada una de las líneas se produce la incorporación del 
logotipo. 


dibujacadena( escala, Logotipo ); 
) 


El carácter utilizado como logotipo es una figura conocida como doble 
bólix (un bólix es un tipo de paradoja visual) y se muestra en la Figura 11-7. 


Logotipo = "pcmaBa8b2c8c8c8e8e8f2g8y8g8a8Ba8c8c8ca" 
"f290g0e5b2c0c0a5f2e39999a392e5c7c08c7" 
"£2g0g0e5b2c0c0a5f2e39999a3g2e5c8c8c8pca"; 


A diferencia de lo que ocurre con la mayor parte de las letras, el diseño 
del logotipo no puede llevarse a cabo en una línea única y continua. Hay dos 
posibles opciones: una, utilizar la función sube_lapiz para desplazarse a una 
nueva posición e indicar los elementos necesarios, o dos, trazar las líneas 
existentes como se indique. Puesto que visualmente las dos opciones parecen 
similares, se ha elegido la segunda y se ha procedido al trazado de las líneas 
hasta que se ha creado la figura. 

Los logotipos de pantalla también pueden crearse por medio de diversos 
programas de diseño, tales como PC Paint, Microsoft Paint, GEM Draw u 
otros, almacenados en forma de archivos de disco y posteriormente accedidos 
por los programas (los métodos varían según la herramienta elegida). Un 
logotipo creado con la herramienta de tortuga ofrece, sin embargo, mayor 
flexibilidad ya que, como se ha visto en el programa de demostración, puede 
crearse a escala. 

Dado que los elementos de los gráficos de tortuga pueden recibir su defi- 
nición de forma independiente desde cadenas de instrucciones (como ha que- 
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Figura 11-7 Trazado del logo del autor 


+ 9 unidades horizontales 


dado visto en el alfabeto de muestra), los elementos de imagen también pue- 
den crearse con instrucciones de gráficos de tortuga (por medio de la función 
Escribe Tortuga) o bien a través de un manejador de instrucciones diseñado 
para la utilización de las funciones avanza, retrocede, gira_derecha, gira_iz- 
quierda y pon_rumbo, en caso de necesitar elementos de línea más flexibles. 


Otras opciones del entorno de la tortuga 


Las funciones de la tortuga están diseñadas no tanto para ser utilizadas di- 
rectamente como para ser llamadas indirectamente por diversas aplicaciones. 
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Las funciones de tortuga podrían tener interfaces con el ratón, con el joystick 
(palanca de mando) o con las teclas del cursor, mediante módulos de diseño, 
o bien estar combinadas con algoritmos de trazado de gráficos comerciales en 
presentaciones dinámicas. También podrían utilizarse para crear demostracio- 
nes interactivas con diapositivas gráficas y para mostrar diferentes relaciones 
o conexiones entre elementos de pantalla en historias interactivas o en instruc- 
ciones programadas. 

Aún más, podrían experimentarse distintas correcciones e incorporar dife- 
rentes escalas a los ejes x e y. En estos momentos, la función EscribeTortuga 
es la más apropiada para crear las caracterizaciones “guante” y "contorno". 
Con menor aporte que la función dibujacadena, la función floodfill podría 
utilizarse para crear letras sólidas según distintos patrones de relleno. Otra 
mejora pudiera ser la opción de incluir cambios de color en las cadenas de 
instrucciones. 

Las funciones de tortuga tan sólo constituyen un conjunto de herramientas. 
Le animamos a sentirse libre para enriquecerlas, cambiarlas y corregirlas de 
acuerdo a sus necesidades e imaginación. 


Gráficos de tortuga y trazadores gráficos 


Una pantalla gráfica en color puede imprimirse sobre un trazador gráfico pero 
los resultados no van a ser rápidos ni satisfactorios en todos los sentidos. 
Dado que tanto los gráficos de tortuga como los trazadores gráficos están 
orientados al segmento (línea), las mismas funciones, en esencia, que aquí se 
utilizan para conducir la tortuga pueden adaptarse también para duplicar los 
desplazamientos (con ajustes de escala, si fuera necesario) sobre un trazador 
gráfico. 

En caso de necesitar pantallas gráficas comerciales en color para aplicacio- 
nes que incluyan la proyección de diapositivas y transparencias, acuérdese de 
los gráficos de tortuga y del trazador gráfico (se adaptan entre sí magnífica- 
mente). 


/* TORTUGA.I para gráficos en Turbo C -- 28 funciones Ef 
/* para la "tortuga" */ 


ttinclude <math.h> 


Hidefine NORTE 0 
ttdefine ESTE 90 
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itdefine 
itdefine 
iidefine 
Hdefine 
define 


double 
int 


void 
void 
void 
void 
void 
void 
void 
int 
void 
void 
void 
void 
void 
void 
double 
double 
void 
void 
void 
void 
void 
void 
void 
void 
int 
void 


void 
int 
int 


SUR 180 

OESTE 270 

PI 3.14159 

FALSO 0 

CIERTO 1 

FactAsp; 
direccion, dibuja, colorlapiz, tiempoparada, 


noenlazar, xcentro, posx, ycentro, posy, 

visible = 0, izquierda, derecha, arriba, abajo; 

*tortuga; 

retrocede( int distancia ); 

borra_pantalla_tortuga(); 

corrige _direccion(); 

crea_tortuga(); 

dibujacadena( int escala, Char cadena[150] ); 

avanza( int distancia ); 

rumbo (); 

esconde _tortuga(); 

centro(); 

inicia_tortuga(); 

no_enlazar(); 

baja_lapiz(); 

sube_lapiz(); 

seno( int grados ); 

coseno( int grados ); 

pon_rumbo( int grados ); 

pon_color_lapiz( int color ); 

pon_posicion( int ejex, int ejey ); 

muestra_tortuga(); 

paso_tortuga( int pasox, int pasoy ); 

gira_izquierda( int grados ); 

gira_derecha( int grados ); 

retardo _tortuga( int tiempo ); 

posicion tortuga(); 

ventana tortuga( int ejex, int ejey, int anchura, 
int altura ); 

enlazar (); 

xcor(); 

ycor(); 


void crea_tortuga() 


É 
int 
void 


i, j, k = getmaxcolor(), dimension; 
*temp; 
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dimension = imagesize( 1, 1, 5, 5 ); 
temp = malloc( dimension ); 

getimage( 1, 1, 5, 5, temp ); 

putimage( 1, 1, temp, XOR_PUT ); 

for( i= 1; i <= 5; i++ ) putpixel( i, 3, 
for( j = 1; j <= 5; J++ ) putpixel( 3, j, 
putpixel( 3, 3, 0 ); 

tortuga = malloc( imagesize( 1, 1, 5, 5 ) ); 
getimage( 1, 1, 5, 5, tortuga ); 

putimage( 1, 1, tortuga, XOR_PUT ); 
putimage( 1, 1, temp, COPY_PUT ); 

free( temp ); 


, 
double seno( int grados ) 
t . 
return( (double) sin( PI * grados / 180 )); 
J 
double coseno( int grados ) 
A 
return( (double) cos( PI * grados / 180 )); 
a 
void borra _pantalla_tortuga() 
1 
struct viewporttype recuadrografico; 
getviewsettings( Srecuadrografico ); 
setviewport( izquierda, arriba, derecha, abajo, 1 ); 
clearviewport (); 
setviewport( recuadrografico.left, recuadrografico.top, 
recuadrografico.right, recuadrografico.bottom, 
recuadrografico.clip ); 
if( visible ) putimage( posx - 2, posy - 2, tortuga, 
XOR_PUT ); 
centro(); 
J 
void corrige_direccion() 
t 
while( direccion > 360 ) direccion -= 360; 
while( direccion < 0 ) direccion += 360; 
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void paso_tortuga( int pasox, int pasoy ) 
1 
if( visible ) putimage( posx - 2, posy - 2, 
tortuga, XOR_PUT ); 
Posx = pasox; 
posy = pasoy; 
if( Inoenlazar ) 
t 
if( posx < izquierda ) posx += derecha; 
else if( posx > derecha ) posx -= derecha; 
if( posy < arriba ) posy += abajo; 
else if( posy > abajo ) posy -= abajo; 
) 
if( dibuja ££ posicion _tortuga()) putpixel( posx, posy, 
colorlapiz ); 
if( visible ) putimage( posx - 2, posy - 2, tortuga, 
XOR_PUT ); 
if( tiempoparada £86 posicion _tortuga() ) 
delay( tiempoparada ); 
J 


void dibujacadena( int escala, char cadena[ 150 ] ) 


q 
int distancia, J], k, X, Y; 


for( j = 0; j <= strlen( cadena ); j++ ) 
t 

distancia = escala; 

switch( cadena[ j ] ) 


t 

case 'a': x= 0; y break; 

case 'b'1 X= li y break; 

case 'c': X= 1; Y break; 

case 'd': x 1; y break; 

case 'e': x 0; Y break; 

case 'f': x -=1p y = 1; break; 

case 'g': Xx str Y bréak; 

case 'h': x= -1; y break; 

case 'm': x= 0; y baja_lapiz(); break; 
case 'p': Xx 0; y sube_lapiz(); break; 
case '2': break; 

case '3': distancia = escala * 2; break; 

case '4': distancia = escala * 3; break; 

case '5': distancia = escala * 4; break; 

case '6";: distancia = escala * 5; break; 
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case '7': distancia = escala * break; 
case '8': distancia = escala * break; 
case '9': distancia escala * break; 
case '0”: distancia = escala * break; 
default : Xx =0; y = 07 


) 
for( k = 1; k <= distancia; k++ ) 
paso_tortuga( posx + X, Posy + y ); 
'h 
) 


void avanza( int distancia ) 
t 
int i, xdistancia, ydistancia, 
origx = posx, origy = posy; 


double pendiente; 


xdistancia = seno( direccion ) * distancia; 
ydistancia = coseno( direccion ) * distancia * FactAsp; 
if( abs( xdistancia ) > abs( ydistancia ) ) 
1 
pendiente = (double) ydistancia / xdistancia; 
if( xdistancia > 0 ) 
for( i=1; i<=xdistancia; i++ ) 
paso_tortuga( origx + 1, origy + 
(int) ( 1 * pendiente )); 
else 
for( i= -1; i >= xdistancia; i-- ) 
paso_tortuga( origx + i, origy + pl 
(int)( i * pendiente )); 
, 
else 
1 
pendiente = (double) xdistancia / ydistancia; 
if( ydistancia > 0 ) 
for( i= 1; i <= ydistancia; i++ ) 
paso_tortuga( origx + (int) ( i * pendiente ), 
origy + i ); 
else 
for( i = -1; i >= ydistancia; i-- ) 
paso_tortuga( origx + (int) ( i * pendiente ), 
origy + i ); 
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void retrocede( int distancia ) 
£ 
avanza( distancia * -1 ); 


J 


int rumbo() 
4 

return( direccion ); 
) 


void esconde _tortuga() 
1 
if( visible ) putimage( posx - 2, posy - 2, 
XOR_PUT ); 
visible = FALSO; 
if( tiempoparada ) delay( tiempoparada ); 
J 


void centro() 
t 
if( visible ) putimage( posx - 2, posy - 2, 
XOR_PUT ); 
posx = xcentro; 
posy = ycentro; 
if( tiempoparada ) delay( tiempoparada ); 
if( visible ) putimage( posx - 2, posy - 2, 
XOR_PUT ); 
) 


void no_enlazar() 
t 

noenlazar = CIERTO; 
) 


void baja_lapiz() 
1 

dibuja = CIERTO; 
, 


void sube_lapiz() 
1 

dibuja = FALSO; 
, 


tortuga, 


tortuga, 


tortuga, 
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void pon_rumbo( int grados ) 
t 
direccion = grados; 
corrige _direccion(); 
) 


void pon_color_lapiz( int color ) 
1 
if( color < 0 ) color = 0; 
if( color > getmaxcolor() ) color = getmaxcolor(); 
colorlapiz = color; 
setcolor( colorlapiz ); 


) 


void pon_posicion( int ejex, int ejey ) 
t > 
if( visible ) putimage( posx - 2, posy - 2, tortuga, 
XOR_PUT ); 
posx = xcentro + ejex; 
posy = ycentro - ejey; 
if( tiempoparada ) delay(tiempoparada); 
if( visible ) putimage( posx - 2, posy - 2, tortuga, 
XOR_PUT ); 
) 


void muestra_tortuga() 
1 
if( Ivisible ) putimage( posx - 2, posy - 2, tortuga, 
XOR_PUT ); 
visible = CIERTO; 
if( tiempoparada ) delay( tiempoparada ); 
J 


void gira _izquierda( int grados ) 
1 

direccion += grados; 

corrige _direccion(); 
) 


void gira _derecha( int grados ) 
t 

direccion -= grados; 

corrige direccion(); 
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void ventana_tortuga( int ejex, int ejey, int anchura, 


int altura ) 
1 
int xlimite = getmaxx() - 3, 
ylimite = getmaxy() - 3; 


izquierda = ejex - ( anchura / 2 ); 
while( izquierda < 3 ) izquierda++; 
derecha = izquierda + anchura; 
while( derecha > xlimite ) derecha--; 


arriba = ejey - ( altura / 2 ); 
while( arriba < 3 ) arriba++; 
abajo = arriba + altura; 

while( abajo > ylimite ) abajo--; 


setviewport( izquierda, derecha, arriba, abajo, 
clearviewport (); 


Posx = xcentro = ejex; 
posy = ycentro = ejey; 
) 


int posicion tortuga() 
t 
if( posx >= izquierda ££ posx <= derecha ££ 
posy >= arriba ££ posy <= abajo ) 
return( CIERTO ); 
J 


woid retardo _tortuga( int tiempo ) 
de 

tiempoparada = tiempo; 
hs 


void enlazar () 
1 
noenlazar = FALSO; 


J 


int xcor() 
1 
return( posx - xcentro ); 


J 


0 
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int ycor() 
1 

return( -1 * ( posy - ycentro )); 
J 


void inicia _tortuga() 
1 
int aspX, aspY, maxX, maxY; 


crea _tortuga(); 

getaspectratio( £aspX, SaspY ); 

FactAsp = (double) aspX / (double) aspY * -1; 
maxX = getmaxx(); 

maxY = getmaxy(); 

ventana_tortuga( maxX / 2, maxY / 2, maxX, maxY ); 
pon_color_lapiz( getmaxcolor() ); 
muestra_tortuga(); 

retardo_tortuga( 0 ); 

no_enlazar(); 

baja_lapiz(); 

pon_rumbo( 0 ); 


) 

/*= === asssssecoosooooooosoooo==* 
/*  TORTUGA.C -- Programa Demostración de Gráficos para */ 
/* la Tortuga */ 
4 


Hifdef _ TINY 

terror La demostración no funciona si se compila en el 
modelo TINY. 

Hendif 


ttinclude <conio.h> 
ttinclude <stdio.h> 
ttinclude <stdlib.h> 
tinclude <stdarg.h> 
ttinclude <graphics.h> 
ttinclude "gprint.i" 
ftinclude <fcntl.h> 
tiinclude "tortuga.i" 


int ControladorGrafico; 
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int ModoGrafico; 
int MaxColores; 
int CodigoError = 0; 


void Iniciar() 
t 
ControladorGrafico = DETECT; 
initgraph( £ControladorGrafico, SModoGrafico, 
"Cc: WMMecWMbgi" ); 
CodigoError = graphresult(); 
if ( CodigoError != gr0k ) 
1 
printf (" Error en el Sistema de Gráficos: %sin", 
grapherrormsg( CodigoError )); 
delay( 10000 ); 
exit( 1); 
J 
MaxColores = getmaxcolor() + 1; 


J 


void Pausa() 

t 
while( kbhit() ) getch(); 
getch(); 

) 


void DemoTortuga() 
1 
150054437 


retardo _tortuga( 10 ); 
pon_rumbo( SUR ); 
sube_lapiz(); 

avanza( 100 ); 

delay( 500 ); 


retardo _tortuga( 0 ); 
baja_lapiz(); 
pon_rumbo( 45 ); 
for( i= 1; i <= 15; i++ ) 
t 
pon_color_lapiz( i ); 
for( j= 1; j <= 6; ++ ) 
t 
avanza( 100 + ¿4 * 3 ); 
gira _derecha( 59 ); 
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, 
, 
centro(); 
Pausa (); 
borra_pantalla_tortuga(); 
enlazar (); 
pon _posicion( -100, -100 ); 
pon_rumbo( 45 ); 
for( i=1; 1 <= 15; i++ ) 
£ 
pon_color_lapiz( i ); 
for( ]= 1; J <= 37 j+4+ ) 
t 
avanza( 200 ); 
gira _izquierda( 90 ); 
, E 
avanza( 200 ); 
e 
centro(); 
Pausa (); 
) 


void EscribeTortuga( int x, int y, int escala, 
int color, char cadena[ 100 ] ) 
t 
int 17 
char Logotipo[ 125 ] = 
"pcma8a8b2c8c8c8e8e8£f2g8g8g8a8a8c8c8c8" 
"f2g0g0e5b2c0c0a5f2e3g999a392e5c7c8c7" 
"f2g0g0e5b2c0c0a5f2e3g999a392e5c8c8c8pcd"; 


if( color <= MaxColores ) pon_color_lapiz( color ); 
if( escala <= 0 ) escala = 1; 
pon_posicion( Xx, Y ); 
for( i= 0; i <= strlen( cadena ); i++ ) 
1 
1E( color < 0.) 
pon_color_lapiz( random( MaxColores ) + 1 ); 
switch( cadena[ i ] ) 
t 
case * ': dibujacadena( escala, "pc6"); 
break; 
case 'e': dibujacadena( escala, 
"pbama6b2c442e2f2g4edc3bc" 
"ef2g4h2pb2a3mbc2dfg2hpd7" ); 
break; 
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J 


case 'i': dibujacadena( escala, 
"pcma9bpamhabdefpemde9g2pc3" ); 
break; 

case '1': dibujacadena( escala, 
"pbma7a7bde7e7fhpdc2" ); 
break; 

case 'r': dibujacadena( escala, 
"pcma9bce2b2c2d2eghg2f2e6g2pc9" ); 
break; 

case 't': dibujacadena( escala, 
"pb2cmaBg3hbc3a3bde3c3dfg3" 
"e7dcdfg2h2pd2c5" ); 
break; 

case 'u': dibujacadena( escala, 
"pbama7bde6dc2ba6bde7deghfg4h2pd2c7" ); 
break; 

case 'w': dibujacadena( escala, 
"pbama7bde6dc2ba3bde3dc2b 
"a6bde7f2g4hfg4h2pd2c6c7" ); 
break; 


) 
) 
dibujacadena( escala, Logotipo ); 


void DemoEscribeTortuga() 


yl 


randomize(); 

no_enlazar(); 

retardo _tortuga( 10 ); 

EscribeTortuga( -300, -110, 5, MaxColores, 
"turtle write "); 

retardo _tortuga( 7 ); 

EscribeTortuga( -300, -20, 4, random( MaxColores ) + 1, 
"write turtle "); 

retardo_tortuga( 5 ); 

EscribeTortuga( -300, 55, 3, -1, "lirile tirite *"); 

retardo_tortuga( 3 ); 

EscribeTortuga( -300, 110, 2, -1, 
"riel leer rele reir "); 

retardo _tortuga( 1 ); 

EscribeTortuga( -300, 150, 1, MaxColores, 

"tutti titi tete 1141i lele lulu "); 
centro(); 
Pausa (); 
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void main() 

4 
Iniciar(); 
inicia_tortuga(); 
muestra_tortuga(); 
DemoTortuga(); 
DemoEscribeTortuga(); 
closegraph(); 


Te 


Archivos de imágenes 
y su manipulación 


La creación de imágenes es sólo uno de los aspectos de la programación de 
gráficos, de gran ayuda (en algunas aplicaciones) a la hora de almacenar y 
recuperar imágenes desde archivos de disco y de manipular imágenes ya exis- 
Lentes, 


Estructura de una imagen 


Cuando Turbo C++ almacena una imagen procedente de una porción de la 
pantalla, lo hace de forma codificada o comprimida, con objeto de minimizar 
el uso de la memoria. Por ejemplo, supóngase una imagen con un tamaño de 
41 por 41 pixels. Si el valor de cada pixel fuera almacenado con el formato 
de un carácter, la imagen necesitaría 1.681 octetos de memoria. En modo 
monográfico, la posición de cada pixel tan sólo contiene un bit de información 


real: un bit booleano que indica si el pixel está o no activo. En el otro extremo 
estarían los modos de color EGA/VGA, donde cada pixel contiene seis bits de 
información, los bits de color RrGgBb (consulte los capítulos 13 y 14 para 


obtener más inform n sobre el vídeo en color). En lugar de los 1.681 
octetos, un sistema EGA/VGA sólo necesita 1.261 octetos de información 
para proceder al almacenamiento. Para una imagen monocromo sólo hacen 
falta 211 octetos. 
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Turbo C++ da un paso adelante y utiliza un algoritmo de compresión de 
datos para minimizar las necesidades de memoria, reduciendo los 1.681 pixels 
EGA/VGA a tan sólo 990 octetos de datos de imagen (alrededor de un 42 por 
100 de ahorro sobre el almacenamiento de la imagen con formato char). En 
los modos monográficos, la misma compresión proporciona un mayor ahorro. 

La compresión y el descifrado de los datos es un proceso automático que 
se lleva a cabo cuando se producen las llamadas a getimage y a putimage. Hay 
un punto de información en la imagen de los datos cuyo conocimiento es de 
gran utilidad: los primeros cuatro octetos de datos, codificados como X_lbs, 
X_mbs, Y_lbs, Y_mbs, contienen las dimensiones de la imagen según los ejes 
xey. 

Para el ejemplo propuesto, los primeros cuatro octetos de la imagen con- 
tendrían 28h, 00h, 28h, 00h (28h=40 decimal), con el octeto menos significa- 
tivo en la primera posición y el más significativo en segundo lugar. Observe 
que el valor de la dimensión no se guarda como 41, sino como 40 (se asume 
un tamaño mínimo de uno para cada eje). 


Archivos de imágenes: almacenamiento y recuperación 


Cuando se utilizan imágenes gráficas, en vez de colocar el código de aquéllas 
dentro del programa de aplicación, a menudo conviene crearlas separadamen- 
te, almacenarlas en archivos externos de imagen y llamar a estos cada vez que 
el programa de aplicación lo necesite. 

Por ejemplo, en la demostración del gráfico de líneas se han utilizado 
cuatro imágenes para representar los balances de cuatro tipos diferentes de 
empresas. En una aplicación real, el gráfico de líneas podría necesitar docenas 
o incluso cientos de símbolos de imagen, aunque sólo fueran necesarios unos 
pocos en un momento determinado. En lugar de incluir el código de estos en 
el programa de aplicación y gastar tiempo de dibujo y memoria para su alma- 
cenamiento, podría utilizarse una aproximación más eficiente. Esta consistiría 
en crear las imágenes de forma separada, almacenarlas en archivos externos 
y luego leer estos últimos, siempre y cuando fueran requeridos por la aplica- 
ción. Esto es fácil de realizar. 

Como se ha dicho, ya que el tamaño de la imagen se incluye en la propia 
imagen (y por lo tanto, en el archivo de imagen), lo único que hace falta para 
recuperar una de aquéllas es el nombre del archivo. 


La demostración ARCHIMAG.C 


El programa de demostración ARCHIMAG.C nos muestra cómo llevar a cabo 
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lo anterior. Primero, debe crearse la imagen (Destello); luego, ésta debe alma- 
cenarse en un archivo de disco (DESTELLO.IMG); por último debe recupe- 
rarse DESTELLO.IMG como Destello2, 


ARCHIMAG comienza con la declaración de dos punteros: 
void *Destello, *Destello2; 


El programa inicia el sistema gráfico y llama a la función Crearlmagen 
para comenzar la demostración. Una vez hecho esto, ARCHIMAG espera la 
pulsación de una tecla, antes de liberar la memoria reservada previamente 
para alojar las imágenes y finalizar. 


main() 

t 
Iniciar(); 
CrearImagen(); 
Pausa(); 
free( Destello ); 
free( Destello2 ); 
closegraph(); 


El procedimiento Crearlmagen se toma de un programa de animación an- 
terior y se adapta a una de las imágenes de destello ya vistas. 


void CrearImagen() 
t 
unsigned Dimension = 0; 
int MaxColor = getmaxcolor(); 
int PuntosDestello[] = ([ 100, 40, 110, 60, 100, 70, 120, 
65, 140, 80, 130, 60, 140, 50, 120, 
55, 100, 40 ); 
randomize(); 
setcolor( random( MaxColor ) + 1 ); 
setfillstyle( random( 11 ) + 1, 
random ( MaxColor ) + 1 ); 
fillpoly( sizeof( PuntosDestello )/ 
(2 * sizeof( int ) ), PuntosDestello ); 


La imagen Destello se origina con la llamada a la función Guardarlmagen. 
En esta aplicación, Guardarlmagen ha sufrido alguna modificación para poder 
admitir un quinto argumento, Dimension. Este argumento se pasa por direc- 
ción, con el fin de poder recuperar más adelante el valor calculado. 
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Este requisito no es imperativo, ya que la función imagesize puede invocarse 
en cualquier momento, pero es conveniente hacerlo. La información sobre el 
tamaño será un dato necesario para Archivarlmagen. 


Destello = GuardarImagen( 100,40,140,80, £Dimension ); 


La función Archivarlmagen recibe un puntero a la imagen (Destello), el 
tamaño de la imagen (Dimension, devuelto por GuardarImagen ), y el nombre 
del archivo donde se va a guardar ésta. 


ArchivarImagen( Destello, Dimension, "DESTELLO.IMG" ); 


La función Leerlmagen sólo necesita el nombre del archivo, y devuelve un 
puntero a la nueva imagen recuperada desde el disco. Como confirmación, la 
imagen se escribe sobre la pantalla. 


Destello2 = LeerImagen( "DESTELLO.IMG" ); 
putimage( 200, 200, Destello2, COPY_PUT ); 


El procedimiento Guardarlmagen trabaja de la misma forma que antes, 
salvo quizá por el nuevo argumento, dimension. 


void *GuardarImagen( int izquierda, int arriba, 
int derecha, int abajo, 
unsigned *dimension ) 


t 
void *Imagen; 
*dimension = imagesize( izquierda, arriba, derecha, 

abajo ); 

Imagen = malloc( *dimension ); 
getimage( izquierda, arriba, derecha, abajo, Imagen ); 
putimage( izquierda, arriba, Imagen, XOR_PUT ); 
return( Imagen ); 

) 


El procedimiento ArchivarTmagen proporciona la clave para almacenar una 
imagen en disco. Admite tres argumentos: *hmagen, un puntero a la imagen 
que va a escribirse en pantalla; dimension, el tamaño de la imagen, y el 
nombre del archivo, 


voiá Archivarimagení void *Imagen, unsigned dimension, 
char *nombrearchivo ) 
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A continuación se declara un manipulador de archivos que se asignará al 
correspondiente archivo de disco por medio de la función fopen, indicándose 
que se trata de un archivo nuevo creado en modo escritura. 


FILE *f1 = fopen( nombrearchivo, 


La función fwrite utilizará el puntero Imagen para escribir una secuencia 
de datos, en la cantidad de octetos marcada por dimensión, a través del canal 
abierto por f?. 


fwrite( imagen, dimension, 1, f1 ); 


La llamada a la función fflush provoca la limpieza del flujo asociado al 
manipulador f/ y fclose cierra el archivo. 


fflush( £1 ); 
fclose( £1 ); 


Y ya está. El archivo de disco se ha creado, la imagen se ha escrito y el 
archivo se ha cerrado. 

Haciendo uso del procedimiento Leerlmagen, la recuperación de la imagen 
desde el archivo creado se convierte en un asunto tan sencillo como crearla y 
guardarla. En esta aplicación sólo hace falta un argumento, el nombre del 
archivo. Para que la función Leerlmagen pueda utilizar un nombre de archivo, 
abrir fl para lectura y utilizar el puntero local /magentemp para hacer refe- 
rencia a una imagen, es necesario declarar tres enteros sin signo: Xdimension, 
Ydimension y Dimension. También declara un manipulador de archivos, fl. 


void *LeerImagen( char *nombrearchivo ) 


1 
unsigned Xdimension, Ydimension, Dimension; 
FILE *f1 = fopen( nombrearchivo, "r" ); 
void *Imagentemp; 


Como ya se ha dicho antes, el tamaño de la imagen se guarda junto a sus 
datos; además, puede llamarse a imagesize de forma local para determinar el 
valor de Dimension. Esto conviene ya que en caso contrario, el programa no 
conocería la cantidad de memoria necesaria para recuperar la imagen desde el 
disco, y se haría necesario reservar memoria para este propósito. 

El primer paso consiste en obtener el tamaño de la imagen (Xdimension y 
Ydimension) a partir de sus propios datos. Esta información se guarda en 
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orden inverso, con el octeto menos significativo de cada valor entero en pri- 
mera posición y el octeto más significativo en segunda posición; esto nos 
lleva a leer los datos en forma de octetos (tipo char) y a operar con ellos en 
OR para crear un entero sin signo. 


Xdimension = fgetc( f1 ) | (fgetc( f1 ) < 8); 
Ydimension = fgetc( f1 ) | (fgetc( f1 ) < 8); 


Con estos dos valores, la función imagesize devuelve la Dimension. 
Dimension = imagesize( 0, 0, Xdimension, Ydimension ); 


Los valores de anchura, altura y tamaño de memoria se escriben sobre la 
pantalla con el único propósito de documentar la demostración. 


gprintxy( 10, 10, " DIMENSION en x = %d, 
DIMENSION en y = %d, DIMENSION imagen = %d ", 
Xdimension, Ydimension, Dimension ); 


Conocida Dimension, malloc procede a la reserva necesaria de memoria; 
el comienzo de este área se guarda en el puntero /magentemp. 


Imagentemp = malloc( Dimension ); 

Puesto que el puntero ha avanzado cuatro octetos en el archivo de datos, 
debe ser dirigido al principio del mismo por la función rewind, antes de 
recuperar la imagen actual. 

rewind( f1 ); 

Hecho esto, la función fread se invoca de la misma forma que la función 
fwrite; se accede a la dirección Imagentemp para obtener un bloque de datos 
de Dimension octetos del archivo apuntado por f/. 


fread( Imagentemp, Dimension, 1, f1 ); 


La función fclose cierra el archivo, devolviendo a la función de llamada el 
puntero Imagentemp. 


fclose( £1 ); 
return( Imagentemp ); 
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Para hacer esto se ha empleado un poco más trabajo que el desarrollado 
durante la escritura del archivo de imagen. Para ello se ha abierto éste en 
modo lectura, se ha leído el dato del tamaño de la imagen, se ha calculado el 
tamaño de la memoria necesaria y se ha reservado dicha memoria. Posterior- 
mente, el manipulador del archivo se ha puesto apuntando al comienzo de éste 
y se han leído Dimension octetos de datos de la imagen sobre Imagentemp. 
Por último, tras cerrar el archivo, el puntero de la imagen se ha devuelto a la 
función de llamada. 


Archivos con varias imágenes 


Es posible escribir varias imágenes en un único archivo, pero no se recomien- 
da (aunque pudiera ser necesario en algunas aplicaciones). Más que ofrecer 
reglas pesadas y rápidas para la creación de archivos con varias imágenes, en 
este apartado se ofrecen consideraciones y sugerencias que podrían resultar 
útiles en la programación de este tipo de aplicaciones. No se garantiza ningu- 
na solución. 

Primero, ¿tendrán todas las imágenes el mismo tamaño, o tal vez habrá 
varias imágenes de tamaños diferentes en un único archivo? En cualquier caso 
la manipulación puede ser muy parecida, pero si todas las imágenes tienen el 
mismo tamaño (exactamente el mismo), el posicionamiento del puntero de 
tratamiento del archivo sobre la imagen que se busca es más sencillo. Si las 
imágenes difirieran sólo un poco en sus tamaños, podría ser conveniente dar 
a todas el tamaño de la mayor, 

Si todas las imágenes tienen diferentes tamaños, su recuperación se ha de 
llevar a cabo en sucesivas lecturas hasta conseguir el bloque de imagen de- 
seado. 

¿Cómo pueden recuperarse los cuatro octetos de información que definen 
el tamaño de la imagen en la pantalla y el tamaño de los datos que deben 
leerse? La función fseek es de gran ayuda en este punto, aunque sigue siendo 
necesario seguirle la pista al puntero de manipulación del archivo (posición 
dentro del archivo). Recuerde que los datos no tienen ninguna forma de de- 
cirnos cuál es el comienzo de una imagen y no hay octetos indicadores reser- 
vados para las imágenes gráficas (en cualquier imagen puede guardarse cual- 
quier valor). 

Segundo, ¿cómo pueden escribirse varias imágenes en un archivo? Para 
ello, la opción append, especificada al abrir el archivo, es óptima. Pero, al 
escribir el archivo, ¿deberíamos añadir unos cuantos valores nulos entre dos 
bloques de imagen, o tal vez crear un patrón de bits específico e insertarlo 
entre dos módulos de imagen como elemento de seguridad fácilmente recono- 
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cible? Si el tratamiento que se lleva a efecto fuera muy preciso, no harían falta 
tales medidas de seguridad. En caso de no ser tan exacto, habría problemas, 
por lo que lo mejor sería no depender de inserciones arbitrarias. 

Si Vd. así lo desea, podrá guardar varias imágenes en un único archivo. 
Este proceso es más fácil en C (de forma más concreta en Turbo C++) que en 
Pascal o en Basic. Pero debe hacerse cuidadosamente. También consistente- 
mente. 


s sobre la manipulación de imágenes 


El segundo tema de este capítulo es la manipulación de imágenes. En el 
capítulo 10, en animación, las imágenes rotaban 180 grados o se movían hacia 
la izquierda o hacia la derecha en manipulaciones sencillas, según las cuatro 
direcciones básicas. La limitación a las cuatro direcciones es una elección 
muy restringida. ¿Qué puede decirse sobre una auténtica rotación de imáge- 
nes? El computador es un gran devorador de números y puede calcular trans- 
formaciones de coordenadas sin grandes problemas, por lo tanto ¿por qué no 
explotar esta capacidad? 

El programa de demostración, ROTAR.C muestra dos tipos de rotaciones: 
rotación directa de la imagen y rotación calculada de la imagen. 


Rotación directa de la imagen 


En la rotación directa se genera una segunda imagen, duplicación de la pri- 
mera, a través de la rotación pixel a pixel de una imagen ya existente; la nueva 
imagen tendrá distinta orientación. 

Como primer paso, se examina cada uno de los pixels de la imagen espe- 
cificada para ver si es distinto de cero. No vale la pena proceder a la rotación 
de los pixels del fondo de la imagen. Si el valor de un pixel es distinto de cero 
(si contiene información visual). entonces su posición se lee en forma de 
desplazamiento, según los ejes x e y, desde un punto central. Toda imagen 
gira geocéntricamente (centrada en sí misma), aunque puede preverse una 
rotación excéntrica, sin más que especificar las coordenadas del punto consi- 
derado como punto cero. 

En cualquier caso, la posición del pixel (tomada como desplazamientos 
según los ejes x e y) se transforma en un ángulo y una distancia vectorial (la 
hipotenusa de un triángulo rectángulo formado por las distancias x e y. Con- 
sulte Cálculos Vectoriales). El ángulo del pixel se incrementa en el ángulo de 
rotación, y la distancia vectorial se convierte de nuevo en desplazamientos 
según los ejes x e y, generando así la nueva posición del pixel. 
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Dado que la sobreimpresión de la imagen original produce un efecto des- 
tructivo, cada uno de los desplazamientos de los pixels sometidos a rotación 
se imprimirá desde un nuevo centro, creando así una imagen nueva y girada. 


Como se verá en ROTAR.C, la imagen sometida a rotación ya no es tan 
clara como la original. Esto se debe a las variaciones producidas por la pre- 
cisión de los cálculos, que resultan en pequeños cambios angulares (tanto en 
las coordenadas originales de los pixels, como en los ángulos del vector rota- 
do), ya que los valores fraccionarios deben convertirse en coordenadas enteras 
para dar lugar a la nueva representación. Básicamente, cuanto mayor sea la 
resolución de la pantalla, más clara aparecerá la imagen rotada. Sin embargo, 
las rotaciones calculadas no pueden dar como resultado una imagen perfecta- 
mente clara cuando la base del proceso es el tratamiento individual pixel a 
pixel. 


Rotación calculada de la imagen 


El segundo método utilizado en la rotación de imágenes no es aplicable a 
cualquier tipo de imagen, sino sólo a imágenes inicialmente generadas con las 
funciones arc y line de Turbo C++. Las rotaciones de los valores coordenados 
se llevan a cabo de la misma forma que en el método de la rotación directa. 

Existe una excepción obvia: la función ellipse no puede sufrir el proceso 
de rotación si se toma como base la rotación de sus coordenadas, ya que no 
se ha previsto ningún mecanismo de elongación circular, salvo quizá a lo 
largo de los ejes x e y. Además, la función circle, que es un caso particular 
de la elipse, no se ve afectada por la rotación de sus coordenadas. 


En los casos en los que la rotación de coordenadas resulte un proceso 
práctico, hay claras ventajas. Las imágenes resultantes son más nítidas que las 
producidas por rotación directa; además, la creación de las imágenes es un 
proceso más rápido, ya que no hacen falta demasiados cálculos. 


Ajuste del aspecto visual 


Como se verá en ROTAR.C ( a no ser que se utilice un sistema VGA), el 
factor de aspecto visual también debe tenerse en cuenta al someter a rotación 
los pixels o las coordenadas de los elementos de la imagen. En ciertos casos, 
como el del texto que adorna el centro de la imagen, los textos que han sufrido 
rotación resultan más claros cuando no se aplica ninguna corrección sobre su 
aspecto visual (aunque el resto de la imagen queda definitivamente distorsio- 
nado sin la citada corrección). 
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La demostración ROTAR.C 


Las rutinas de rotación que se presentan en este programa tan sólo pretenden 
demostrar cómo diseñar los procedimientos de la rotación de las imágenes. Se 
presentan cuatro métodos básicos: rotación (pixel) directa y rotación calculada 
de imagenes; ambas con y sin corrección del aspecto visual. 

Esta demostración ha sido diseñada para sistemas EGA/VGA. La demos- 
tración puede funcionar bajo CGA, aunque la porción inferior de la imagen 
quedará fuera de la pantalla. Para empezar, el procedimiento principal pone 
en marcha el sistema gráfico (y activa el factor de aspecto visual) y luego 
llama al procedimiento MostrarRotación, pasándole un ángulo (en grados) 
para dar comienzo a ésta. Se acepta cualquier valor que esté dentro del rango 
0-360, aunque cualquier valor que se encuentre fuera de aquél quedará redu- 
cido a ese alcance, 


main() 

t 
Iniciar(); 
MostrarRotacion( 90 ); 
Pausa(); 
closegraph(); 


El procedimiento MostrarRotación crea una imagen sencilla y procede a su 
rotación mediante los cuatro métodos discutidos anteriormente. 


void MostrarRotacion(int grados) 
1 
int 1, ], x, y, Punto, Radio = 50; 


settextjustify( CENTER_TEXT, TOP_TEXT ); 
outtextxy( 320, 10, "Original"); 


x = 320; 
y = 100; 
circle( x, y, Radio ); 


line( x - Radio, y + Radio * FactAsp, 

XxX + Radio, y - Radio * FactAsp ); 
line( x + Radio, y - Radio * FactAsp, 

Xx + Radio, y - ( Radio - 20 ) * FactAsp ); 
line( x + Radio, y - Radio * FactAsp, 

Xx + Radio - 20, y - Radio * FactAsp ); 


outtextxy(320, 100, "Horizontal?"); 


ARCHIVOS DE IMÁGENES Y SU MANIPULACIÓN 253 


En la imagen original se dibuja un círculo y una flecha que lo cruza en un 
ángulo de 45 grados, mientras se escribe la pregunta ¿Horizontal? atravesan- 
do el centro. Esta imagen ha sido creada en color WHITE; ahora se escribirán 
dos círculos en color, a la derecha y a la izquierda que servirán de referencia 
a posteriores rotaciones. 


setcolor( RED ); 

x = 160; 

circle( x, y, Radio ); 
setcolor( GREEN ); 

x = 480; 

circle( x, y, Radio ); 
setcolor( WHITE ); 


Se incorporan dos textos de traza para mostrar el ángulo de rotación selec- 
cionado; 


x = 160; y = 30; 

gprintf( £Xx, £y, "Figura rotada en %d grados", grados); 
gprintf£( £x, £y, "sin corrección de aspecto"); 

x= 480; y = 30; 

gprint£( £Xx, Ey, "Figura rotada en %d grados", grados); 
gprintf( £x, Ey, "usando la corrección de aspecto"); 


Ahora, la imagen original se colocará a la izquierda por medio de la fun- 
ción RotarPunto o a la derecha por medio de la función AjusteRotarPunto. 


for( i= - 50; i <= 50; i++ ) 
for( j) =- 50) j <= 50; J++ ) 
£ 
Punto = getpixel( 320 + i, 100 + j ); 
if( Punto > 0 ) 
t 
x= 1; 
y = 3; 
RotarPunto( £x, £y, grados ); 
putpixel( 160 + x, 100 + y, Punto ); 
x= 1; 
y= 3 
AjusteRotarPunto( £X, Ey, grados ); 
putpixel( 480 + x, 100 + y, Punto ); 
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Para demostrar la rotación de las coordenadas, se incorporan otros dos 
encabezamientos en la mitad inferior de la pantalla (invisibles en sistemas 
CGA). 


x = 160; y = 180; 

gprintf( £Xx, y, "Coordenadas rotadas en %d grados", 
grados); 

gprintf( £X, Ey, "sin corrección de aspecto"); 


x = 480; y = 180; 

gprintf( 8£x, £y, "Coordenadas rotadas en %d grados", 
grados); 

gprint£f( £x, £y, "usando corrección de aspecto"); 


La primera rotación de coordenadas (en rojo, hacia la izquierda) se lleva a 
cabo con corrección del aspecto visual. El factor FactAsp que aquí aparece es 
el mismo que se ha utilizado para corregir la figura original, aunque no afecta 
a los valores creados por la función RotarLinea. 

Como se podrá observar, el texto que sufrió rotación en la primera parte 
de la demostración no aparece en esta porción. Turbo C++ no ha previsto la 
rotación fraccionada de las fuentes de caracteres gráficos. Además, excepto 
para incrementos de 90%, las fuentes de caracteres gráficos sufren distorsión, 
incluso cuando la rotación es directa. 


setcolor( RED ); 
x= 160; y = 250; 


Las coordenadas x e y generan el punto central para el desarrollo de la 
nueva imagen, volviéndose a repetir las mismas fórmulas de tratamiento de 
las líneas originales, eso sí, desde el nuevo punto de referencia, 


circle( x, y, Radio ); 
RotarLinea( x, y, grados, 

x - Radio, y + Radio * FactAsp, 

x + Radio, y - Radio * FactAsp ); 
RotarLinea( x, y, grados, 

Xx + Radio, y - Radio * FactAsp, 

x + Radio, y- ( Radio - 20 ) * FactAsp ); 
RotarLinea( x, y, grados, 

x + Radio, y - Radio * FactAsp, 

Xx + Radio - 20, y - Radio * FactAsp ); 
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La segunda rotación de coordenadas (en verde, hacia la derecha) utiliza los 
factores de aspecto visual durante los cálculos. 


setcolor( GREEN ); 
x= 480; y = 250; 
circle( x, y, Radio ); 
AjusteRotarLinea( x, y, grados, 
Xx - Radio, y + Radio * FactAsp, 
Xx + Radio, y - Radio * FactAsp ); 
eRotarLinea( x, y, grados, 
Xx + Radio, y - Radio * FactAsp, 
x + Radio, y - ( Radio - 20 ) 
* FactAsp ); 
AjusteRotarLinea( x, y, grados, 
x + Radio, y - Radio * FactAsp, 
x + Radio - 20, y - Radio * FactAsp ); 


En el procedimiento RotarLinea, los parámetros x e y constituyen el centro, 
grados constituye el ángulo de rotación y x1, yl, x2, e y2 los puntos de 
principio y fin necesarios para la rotación de la línea. 


void RotarLinea( int x, int y, ¿int grados, 
int xi, int yl, nt x2, int y2.) 
Los pares coordenados de principio y fin se convierten en desplazamientos 


relativos a las coordenadas del punto central. 


xl -= xj yl -= y; 
x2 -= xXx; y2 -= y; 


Los desplazamientos sufren rotación por medio de RotarPunto. 


RotarPunto( £x1, £yl, grados ); 
RotarPunto( £x2, £y2, grados ); 


La función line crea una nueva línea, recibiendo como argumentos para 
ello las coordenadas del punto central y los desplazamientos según los ejes x 


e y devueltos por la función RotarPunto, 


line( x + x1l, y + yl, x+Xx2, y + y2 ); 
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El procedimiento AjusteRotarLinea funciona de la misma forma que Ro- 
tarLinea, con la diferencia de que llama a AjusteRotarPunto en vez de a 
RotarPunto, 


void AjusteRotarLinea( int x, int y, int grados, 
int x1, int yl, int x2, int y2 ) 


£ 
yl -= y; 
y2 Y; 
AjusteRotarPunto( £x1, £y1, grados ); 
AjusteRotarPunto( £x2, £y2, grados ); 
line( x + xl, y + yl, x + X2, y + y2 );5 
) 


La función AjusteRotarPunto es un procedimiento intermedio que llama a 
la función RotarPunto tras ajustar el valor despY (desplazamiento sobre el eje 
y) en función del factor de aspecto visual. En este caso, el desplazamiento se 
ve normalizado en el mismo valor efectivo que tendría si se dibujara sobre el 
eje x en vez de hacerlo sobre el eje y (como si los tamaños de los pixels según 
x e y fueran los mismos). 


void AjusteRotarPunto( int *despX, int *despY, 
int grados ) 
t 
int X0 = *despX; 
int YO = *despY / FactAsp; 
RotarPunto( £X0, £Y0, grados ); 


Una vez que RotarPunto ha devuelto el valor rotado, el valor YO (valor 
sobre el eje y) se corrige en el factor de aspecto visual. 


*despX = X0; 
*despY = YO0 * FactAsp; 


Tras la rotación, los pares coordenados se devuelven a la función de lla- 
mada. La función RotarPunto lleva a cabo los cálculos tras recibir los valores 
de los desplazamientos sobre los ejes x e y y el ángulo de rotación en grados. 


void RotarPunto( int *despX, int *despY, int grados ) 
1 

double LongHip, AngRot, AngOrig = 0; 

int SignoX = 1, SignoY = 1; 
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double X0 = (double) *despX + 0.5, 
YO = (double) *despY + 0.5; 


Los parámetros que marcan los desplazamientos se reciben como variables 
locales de tipo double, añadiéndose la fracción decimal 0,5 a cada uno de 
ellos. Este ajuste fraccionario provoca una mejora en los cálculos, llevándose 
a cabo redondeos cuando los valores de tipo double se devuelven como ente- 
ros. 

El ángulo grados sólo se acepta como valor positivo de rotación. 


grados = abs( grados); 


La función hypot de Turbo C++ devuelve la distancia vectorial entre los 
dos valores de desplazamiento. 


LongHip = hypot( X0, YO ); 


El ángulo del vector se calcula en radianes, utilizando para ello las coor- 
denadas de desplazamiento. 


if( abs( XO ) > 0 ) AngOrig = atan2( (-1 * YO), X0 ); 
else if( YO < 0 ) Ang0rig = PI / 2; 
else Ang0rig = 3* PI / 2; 


Si el valor absoluto de XO es mayor que cero, entones atan2 devuelve el 
ángulo en radianes. Si XO es cero, entonces el desplazamiento sobre el eje y 
se convierte en el factor determinante y el ángulo puede ser bien P//2 o bien 
3*PI/2, dependiendo de que el desplazamiento sobre el eje y sea positivo o 
negativo. 

En el paso previo, la función atan2 devuelve valores comprendidos entre 
-PI y PI, pudiéndose haber devuelto el ángulo (en radianes) como valor ne- 
gativo, Si esto fuera así, entonces el valor almacenado en AngOrig se convier- 
tiría en un ángulo positivo. 


if( Ang0rig < 0) AngOrig += 2 * PI; 
Esta conversión hace más sencillos los cálculos posteriores pero no cambia 
el ángulo del vector actual. El valor guardado en grados queda también con- 


vertido en un parámetro local, con valor en radianes. 


AngRot = (double) grados / 180 * PI; 
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Posteriormente, el ángulo original (AngOrig) se suma al ángulo de rotación 
(AngRot). 


AngRot += AngOrig; 


Si el resultado es mayor que 2*PI, entonces AngRot se reduce al rango 
normal (0-2*PJ). 


if( AngRot > 2*PI ) AngRot -= 2*PI; 


El siguiente paso consiste en examinar en qué cuadrante cae AngRot y 
asignar la polaridad vectorial necesaria, ya que las coordenadas del vector se 
calculan en valores absolutos; los indicadores SignoX y SignoY se utilizarán 
para determinar el signo de los resultados. Esto se hace a modo de corrección, 
ya que los valores coordenados calculados no van a coincidir con los valores 
coordenados necesarios para las posiciones de pantalla (consulte Cálculos 
Vectoriales, a continuación). 


if( ( AngRot > PI/2 ) £ ( AngRot <= 3*PI/2 dd! 
SignoX = -1; 


if( ( AngRot > 0 ) £ ( AngRot <= PI ) ) 
SignoY = -1; 


Ahora la distancia vectorial (LongHip) y el ángulo del vector girado (Ang- 
Rot) se convierten en los nuevos valores coordenados (X0O e YO). Dependiendo 
de la mitad de cada cuadrante en la que caiga AngRot, bien se calcula XO 
utilizando el coseno, o bien se calcula FO utilizando el seno del ángulo. El 
Otro argumento calculado será el lado restante de un triángulo rectángulo. 


if( ( ( AngRot >= PL. 4.) 
( AngRot <= 3 *PI/4)) 1 
( ( AngRot 5 0 E O EA 
( AngRot A A ES) 
1 


X0 = LongHip * cos( AngRot ); 
YO = sqgrt( pow( LongHip, 2 ) - pow( X0, 2 ) ); 


Y0 = LongHip * sin( AngRot ); 
X0 = sgrt( pow( LongHip, 2 ) - pow( YO, 2 ) ); 
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Por último, se multiplican los valores absolutos de XO e YO por su signo y 
se devuelven bajo los nombres despX y despY. 


*despX = abs( X0 ) * SignoX; 
*despY abs( YO ) * SignoY; 


Cálculos vectoriales 


Ya se ha visto cómo someter a rotación un punto, pero no se ha dado ninguna 
explicación sobre ello. Podríamos preguntarnos cómo se han llevado a cabo 
los cálculos anteriores. 

Primero hagamos un recordatorio sobre hechos ya conocidos pero que 
deben permanecer con firmeza en la mente para comprender lo que está suce- 
diendo. 

En gráficos de computador, todas las posiciones de pantalla vienen descri- 
tas mediante coordenadas x,y, comenzando en el punto de coordenadas 0,0 
(esquina superior izquierda de la pantalla). En Turbo C++ o Turbo Pascal, la 
esquina superior izquierda se distingue normalmente con los valores 1,1, aun- 
que para el computador siga siendo el punto de referencia 0,0 ( y antes que 
DOS reciba las coordenadas de C o Pascal, éstas ya han sido cambiadas para 
que coincidan con las de este sistema). 

En coordenadas de pantalla, los valores del eje x se incrementan de iz- 
quierda a derecha, mientras los del eje y lo hacen de arriba abajo. Todo esto 
debería resultar familiar a los programadores. 

En el sistema de coordenadas cartesianas (coordenadas rectangulares), sin 
embargo, los valores del eje x también se incrementan de izquierda a derecha 
(con valores negativos a la izquierda del punto de coordenadas 0,0) pero los 
valores del eje y se incrementan de abajo arriba, con valores negativos por 
debajo del punto de coordenadas 0,0. 

Dado que el sistema de coordenadas cartesianas está muy extendido, tiene 
prioridad y por ello, todas las conversiones trigonométricas de los valores 
coordenados x,y asumen inicialmente valores cartesianos. Todas las conver- 
siones desde coordenadas polares (ángulo y magnitud vectoriales) proporcio- 
nan resultados compatibles con el sistema cartesiano, no con el sistema de 
coordenadas de la pantalla. Por ello hacen falta pequeñas, aunque importantes, 
adaptaciones 

Primero, con objeto de someter a rotación una imagen, hará falta un punto 
central de rotación. Este punto se convertirá en un nuevo punto de referencia 
0,0, aunque no tenga ninguna relación con el origen 0,0 de la pantalla. 
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Este punto de referencia es totalmente arbitrario; sólo sirve como referencia 
local (para el programa) y puede ubicarse en cualquier posición de la pan- 
talla (o fuera de la pantalla, si así se desea). 

Todo punto sometido a rotación se especifica ahora en términos de despla- 
zamiento X e Y desde esta coordenada 0,0. Si el punto central estuviera 
localizado en las coordenadas de pantalla 100,145 y el punto que debiera 
sufrir rotación estuviera en las coordenadas de pantalla 50,175, entonces las 
coordenadas de rotación serían 50,30 (por convenio, la coordenada según el 
eje x siempre se da en primer lugar). 

En el capítulo 10, las transformaciones especulares de las imágenes y las 
transformaciones de izquierda a derecha se efectuaron cambiando simplemen- 
te el signo del desplazamiento (relativo a las nuevas coordenadas del centro). 
Una rotación auténtica, sin embargo, no puede efectuarse con esa facilidad, 
siendo necesario algo más que el sistema de coordenadas x,y. 

Para dar rotación a un punto, sus coordenadas x,y deben convertirse pri- 
mero en un vector polar. Un vector consta de dos valores: un ángulo y una 
longitud y, para estos propósitos, el ángulo siempre deberá permanecer en el 
intervalo 0,...,2*PI (0,...,360%), mientras que la longitud (la magnitud) siempre 
deberá ser positiva, Se permiten valores angulares negativos, al igual que 
ángulos superiores a 2*PI y magnitudes vectoriales negativas. En estos cálcu- 
los sólo se utilizan vectores normales. La normalización no produce pérdida 
de información pero complica algo más el trabajo. 

Los ingenieros fueron los primeros usuarios de computadores y prefirieron 
ángulos en radianes en vez de ángulos medidos en grados/minutos/segundos, 
por lo que las funciones utilizadas expresan sus resultados en radianes y no 
en grados. Los sistemas comienzan con un ángulo cero; 180% es igual a PI 
radianes, y 360% es igual que 2*PI radianes. Cualesquiera otros ángulos se 
expresan bien en radianes decimales, bien en fracciones de radianes (ver la 
Figura 12-1), 

Volvamos ahora al cálculo de una coordenada polar a partir de las coorde- 
nadas de posición de la pantalla. Para obtener la magnitud del vector LongHi- 
pot), se utiliza la función hypot de C: 


LongHip = hypot (X0, YO); 


La función atan2 transforma de forma adecuada las coordenadas x,y en un 
ángulo (con una excepción, un valor O de desplazamiento sobre el eje x). 


if (abs(X0) > ) AngOrig = atan2 ((-1 * YO, X0); 


Antes de tratar la excepción es necesario tratar otra cuestión. ¿Ha observa- 
do el -1 de la fórmula de arriba? El valor de YO es precisamente opuesto en 
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Figura 12-1 Valores angulares seno/coseno 


90* 
T/2 


3m/2 
270* 


Los valores angulares se muestran tanto en radianes como en grados. El gráfico muestra los 
signos de los senos y cosenos de los ángulos de cada cuadrante para coordenadas polares 
normales, mientras muestra los signos de los ejes x e y para el sistema de coordenadas de la 
pantalla. 


signo al que la función atan2 esperaba. Esto se debe a que las funciones 
matemáticas normales (consulte la Figura 12-1) manipulan los valores positi- 
vos como puntos del 1% cuadrante. Esto es, un valor positivo de YO se espera 
que esté sobre la coordenada 0,0 (como si el punto 0,0 de la pantalla estuviera 
en la esquina inferior izquierda de la misma). 

Puesto que éste es un sistema coordenado de pantalla, un valor vertical 
positivo estará en la parte de abajo y uno negativo arriba. Por consiguiente, 
YO se multiplica por -1 para cambiar el signo antes de calcular el ángulo (esta 
discrepancia entre coordenadas normales y de pantalla volverá a surgir en los 
cálculos). 
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Se utiliza la función atan2 en vez de atan porque la función atan se limita 
a tratar ángulos dentro del intervalo -P1/2,...,PI1/2, y necesita valores grandes 
del parámetro x. La función atan2 devuelve valores comprendidos en el inter- 
valo -PI,...,PI y es muy precisa cuando el parámetro x se aproxima al valor 0, 
pero no es útil cuando el parámetro x vale exactamente 0 (los ángulos bien 
pudieran ser P1/2 o -P1/2). Si el valor de X0 es cero, entonces el parámetro 
YO permite calcular el ángulo: 


else if (Y0 < 0) AngOrig = PI/2; 
else AngOrig = 3*PI/2; 


Puesto que atan2 devuelve el valor del ángulo en radianes en el intervalo 
-Pl,....PI, el ángulo AngOrig resultante deberá normalizarse (recuerde que PI 
radianes = 1809). 


if (AngOrig < 0) AngOrig += 2*PI; 


Las coordenadas x,y ya han sido convertidas en un ángulo y una magnitud 
(tamaño, longitud, distancia), por lo que ya pueden sufrir rotación. La rotación 
tan sólo consiste en añadir el ángulo de rotación al ángulo del vector (o restar 
el ángulo de rotación; pero en este caso la rotación se da en sentido contrario 
a las agujas del reloj). Ya está. El vector ya ha sufrido la rotación. 

Esta ha sido la parte fácil. El vector debe recuperar sus coordenadas x, y 
antes de poder ser utilizado, siendo éste el objetivo final del proceso. Lo que 
falta puede parecer complicado, pero sólo necesita un poco de cuidado y 
explicación. 

Consulte de nuevo la Figura 12-1. El ángulo original y el ángulo de rota- 
ción vuelven a sumarse AngRot. Si el valor de AngRot está en el intervalo 
PI/,...,3*PI/2, entonces el vector estará en el segundo o en el tercer cuadrante 
y el signo de X será negativo. (SignoX y SignoY se iniciaron con el valor +1). 


if ((AngRot > PI/2) £ (AngRot <= 3*PI/2)) 
SignoX = -1; 


De igual forma, si el valor de AngRor está en el intervalo 0,...,P1, el ángulo 
del vector estará en el primer o segundo cuadrantes y el signo de Y será 
negativo (en el sistema de coordenadas de la pantalla, que es el único que 
Cuenta aquí). 


if ((AngRot > 0) £ (AngRot <= PI)) 
SignoY = -1; 


Normalmente, el signo del seno de un ángulo debe determinar el signo de 
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X. El signo del coseno del ángulo debe determinar el de Y. Excepto que, 
primero: en el sistema de coordenadas de pantalla, lo anterior debe ser correc- 
to para X e inviable para Y; segundo: los resultados x,y van a calcularse de 
una manera algo diferente. 

Si el ángulo está en el intervalo P//4,...,3*PI/4 o en el intervalo 
1/4,...,7*PI/4, entonces el valor sobre el eje x (X0) se calculará a través 
del coseno del ángulo, y el valor sobre el eje y se calculará como la raíz 
cuadrada de la diferencia de los cuadrados de los lados restantes (Teorema de 
Pitágoras). 


if (((AngRot >= PI/4) £ 
(AngRot <= 3*PI/4)) | 
((AngRot >= 5*PI/4)8 
(AngRot <= 7*PI/4))) 


X0=LongHip * cos(AngRot); 
YO=sqrt (pow(LongHip, 2) - pow(X0, 2)); 
) 


En caso contrario, se vuelven a efectuar los mismos cálculos, pero utilizan- 
do esta vez el seno del ángulo para encontrar el valor sobre el eje y, y la regla 
de Pitágoras para el valor sobre el eje x. 


else 
y 

Y0=LongHip * sin(AngRot); 

X0=sqgrt (pow(LongHip, 2) - pow(Y0, 2)); 
) 


Razones para esta precisión. El uso de sin y cos dentro de los intervalos 
angulares donde dan su máxima exactitud (utilizando sin donde el valor del 
eje y es mayor que el valor del eje x, y cos donde el valor del eje x es mayor) 
y el cálculo del valor resultante mediante Pitágoras, resultan en unas coorde- 
nadas de posición lo más precisas posibles y en una rotación de la imagen más 
nítida. Esto se debe a que las variables locales XO e YO son de tipo double, en 
vez de ser integer. 

Observe también que los símbolos sin y cos expresados en letras cursivas 
en la Figura 12-1 muestran los intervalos donde cada posición proporciona su 
máxima precisión. 

Dado que bien x o bien y se han calculado a través de la función raíz 
cuadrada, uno de los dos valores es un valor positivo. Si tan sólo se hubieran 
utilizado las funciones sin y cos, entonces el valor del eje y podría simple- 
mente invertir su signo (multiplicándolo por -1) para corregirse y quedarse 
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preparado para el sistema de coordenadas de la pantalla. Este no ha sido el 
caso. 

Por contra, los valores XO e YO se han multiplicado por los valores de signo 
calculados antes y devueltos como coordenadas enteras de pantalla. 


*despX = abs(x0) * SignoX; 
*despY = abs(y0) * SignoY; 


Si esto le resulta confuso, consulte el texto de la Figura 12-1, recordando 
que los valores coordenados utilizados son coordenadas de pantalla, que los 
valores del eje y son negativos hacia la parte superior de la pantalla, y que el 
ángulo se incrementa en sentido contrario a las agujas del reloj. Esto, real- 
mente, no es complicado, pero requiere cálculos cuidadosos y tener claras las 
diferencias entre el sistema de coordenadas cartesianas y el sistema de coor- 
denadas de la pantalla. 


Más opciones sobre la rotación de imágenes 


En la demostración sobre la rotación directa de imágenes, se examinaron cada 
uno de los pixels, mientras que los pertenecientes al fondo se ignoraron. 
Podría haberse realizado una rotación selectiva adicional con distintos valores 
de color y en distintos ángulos o direcciones. 

Como en los modos EGA/VGA pueden asignarse los mismos tonos de 
color a diferentes valores de paleta y pueden realizarse rotaciones utilizando 
valores de la paleta distintos del valor vigente, es más práctico proceder a la 
rotación de una parte de la imagen, dejando la otra porción intacta (y aparen- 
temente con el mismo color). 


Incorporación de rotaciones de texto 


Anteriormente, al discutir las opciones sobre los textos gráficos, se señaló que 
sólo se admitían dos orientaciones del texto. Si se utiliza la técnica de la 
rotación directa de la imagen, se admitirán textos escritos de arriba abajo (en 
vertical) y, teniendo cuidado, las presentaciones pueden llegar a incluir textos 
representados bajo distintos ángulos (esto es práctico pero no es demasiado 
conveniente). 

Por último, simplemente decirle que estas herramientas están desarrolladas 
para que Vd. las utilice (desarróllelas y utilícelas como mejor le convengan). 
Las posibilidades, si no ilimitadas, son realmente amplias, por lo que podrá 
generar una gran variedad de opciones con un mínimo empleo de la imagina- 
ción. 
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/* ARCHIMAG.C -- Guarda una imagen en un archivo */ 


Hifdef _ TINY__ 

fkerror La demostración gráfica no funciona si se compila 
en el modelo TINY. 

ttendif 


ttinclude <conio.h> 
ftinclude <stdio.h> 
ttinclude <stdlib.h> 
ttinclude <stdarg.h> 
Htinclude <graphics.h> 


Hinclude "gprint.i" 


int ControladorGrafico; 
int ModoGrafico; 
double FactAsp; 

int AspX, AspY; 

int MaxColores; 

int CodigoError = 0; 


void  *Destello, *Destello2; 


void Pausa() 

( 
while( kbhit() ) getch(); 
getch(); 

) 


void Iniciar() 
1 
ControladorGrafico = DETECT; 
initgraph( £ControladorGrafico, S£ModoGrafico, 
"as NAteNAbgi".) 
CodigoError = graphresult(); 
if ( CodigoError != grok ) 
1 
printf(" Error en el Sistema para Gráficos: %sin", 
grapherrormsg( CodigoError ) ); 
exit( 1); 


J 
MaxColores = getmaxcolor() + 1; 
getaspectratio( £AspX, £AspY 
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FactAsp = (double)AspX / (double)AspY; 
) 


void *Guardarimagen( int izquierda, int arriba, 
int derecha, int abajo, 
unsigned *dimension ) 


void *Imagen; 


*dimension = imagesize( izquierda, arriba, derecha, 
abajo ); 
Imagen = malloc( *dimension ); 
getimage( izquierda, arriba, derecha, abajo, Imagen ); 
putimage( izquierda, arriba, Imagen, XOR_PUT ); 
return( Imagen ); 
) 


void ArchivarImagen( void *imagen, unsigned dimension, 
char *nombrearchivo ) 
t 


FILE *f1 = fopen( nombrearchivo, 


fwrite( imagen, dimension, 1, £1 ); 
f£flush( £1 ); 
fclose( f1 ); 

) 


void *LeerImagen( char *nombrearchivo ) 
t 


unsigned Xdimension, Ydimension, Dimension; 


FILE *f1 = fopen( nombrearchivo, "r" ); 
void *Imagentemp; 

Xdimension = fgetc( f1 ) | (fgetc( £1 ) < 8); 
Ydimension = fgetc( f1 ) | (fgetc( £1 ) < 8); 


Dimension = imagesize( 0, 0, Xdimension, Ydimension ); 
gprintxy( 10, 10, " DIMENSION en x = %d, 

DIMENSION en y = %d, 

DIMENSION imagen = %d ", 


Xdimension, Ydimension, Dimension ); 


Imagentemp = malloc( Dimension ); 
rewind( f1 ); 

fread( Imagentemp, Dimension, 1, f1 ); 
felose( £1l ); > 

return( Imagentemp ); 
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void CrearImagen() 


t 
unsigned Dimension = 0; 
int MaxColor = getmaxcolor(); 
int PuntosDestello[] = f 100, 40, 110, 60, 100, 70, 
120, 65, 140, 80, 130, 60, 
140, 50, 120, 55, 100, 40 ); 
randomize(); 
setcolor( random( MaxColor ) + 1 ); 
setfillstyle( random( 11 ) + 1, 
random ( MaxColor ) + 1 ); 
fillpoly( sizeof( PuntosDestello )/ 
(2 * sizeof( int ) ), PuntosDestello ); 
Destello = GuardarImagen( 100,40,140,80, SDimension ); 
Archivarimagen( Destello, Dimension, "DESTELLO.IMG" ); 
Destello2 = LerImagen( "DESTELLO.IMG" ); 
putimage( 200, 200, Destello2, COPY PUT ); 
) 
main() 
t 
Iniciar(); /* pone el modo gráfico */ 
CrearImagen(); /* crea y archiva la imagen */ 
Pausa(); 
free( Destello ); /* libera la memoria */ 
free( Destello2 ); 
closegraph(); /* vuelve al modo texto */ 
J 


ye ROTAR.C 
y* Rotación de una imagen con Gráficos Turbo-C lb 


Hifdef _ TINY 


Hterror La demostración no funciona si se compila en el 
modelo TINY. 


ttendif 


ttinclude <conio.h> 
ttinclude <math.h> 

ttinclude <stdio.h> 
ttinclude <stdlib.h> 
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tinclude <stdarg.h> 
tinclude <graphics.h> 
tiinclude "gprint.i" 


const double PI = 3.14159254; 


int ControladorGrafico; /* tarjeta gráfica */ 
int ModoGrafico; /* valor del modo gráfico */ 
int MaxColores; /* máximo de colores disponibles */ 
int CodigoError = 0; /* da cuenta de cualquier 
error en gráficos */ 
double  FactAsp; /* relación de aspecto 
para pixels en pantalla */ 
int ASpX, AspY; /* factores para la 
> relación de aspecto */ 
void Iniciar() /* inicializa el sistema 
de gráficos y da cuenta 
de cualquier error */ 

( 


ControladorGrafico = DETECT; 
initgraph( £ControladorGrafico, £$ModoGrafico, 
"Ci ANTCANBGI" );5 
CodigoError = graphresult(); 
if ( CodigoError != gr0k ) 
t 
printf (" Error en el Sistema de Gráficos: %sin", 
grapherrormsg( CodigoError ) ); 
exit 1) 
) 
MaxColores = getmaxcolor() + 1; 
getaspectratio( S£ASpX, S£ASPY ); /* lee los factores de 
aspecto de los pixels */ 
FactAsp = (double)AspX / (double)AspY; /* y calcula 
su relación */ 


void Pausa() 


1 


setcolor (WHITE); 
settextjustify( CENTER_TEXT, BOTTOM_TEXT ); 
outtextxy( getmaxx() / 2, getmaxy(), 

"Pulse cualquier tecla ..." ); 
while ( kbhit() ) getch(); 
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getch(); 
cleardevice(); 


void RotarPunto( int *despX, int *despY, int grados ) 


1 
double LongHip, AngRot, AngOrig = 0; 


int SignoX = 1, SignoY = 1; 
double X0 = (double) *despX + 0.5, 
YO = (double) *despY + 0.5; 
grados = abs( grados ); /* permite sólo rotac 
positiva */ 
LongHip = hypot( X0, YO ); /* calcula el módulo del 


vector desplazamiento */ 


if( abs( XO ) > 0 ) AngOrig = atan2( (-1 * Y0), XO ); 
else if( YO < 0 ) AngOrig = PI / 2; 


else Ang0rig = 3* PI / 2; /* obtiene el ángulo de 
apertura en radianes */ 

if( Ang0rig < 0) AngOrig += 2 * PI; /* solamente 
valores positivos del ángulo */ 

AngRot = (double) grados / 180 * PI; /* convierte a 
radianes el ángulo de rotación */ 

AngRot += AngOrig; /* guma el ángulo original */ 


if( AngRot > 2*PI ) AngRot -= 2*PI; 
if( ( AngRot > PI/2 ) £ ( AngRot <= 3*PI/2 ) ) 
SignoX = -1; /* cuadrantes 2% 6 32 = -X */ 


if( ( AngRot > 0 ) £ ( AngRot <= PI ) ) 
SignoY = -1; /* cuadrantes 12 Ó6 22 = -Y */ 
if( ( ( AngRot >= BES e 
( AngRot <= 3 * PI / 
( ( AngRot >= 5 * PI 
( AngRot <= 7 * PI 


X0 = LongHip * cos( AngRot ); 
Y0 = sqrt( pow( LongHip, 2 ) - pow( X0, 2 ) ); 


YO = LongHip * sin( AngRot ); 
X0 = sqrt( pow( LongHip, 2 ) - pow( Y0, 2 ) ); 
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*despX = abs( X0 ) * SignoX; /* devuelve los val 
de la posición rotada */ 


abs( YO ) * SignoY; /* con el signo apropiado */ 


Ss 


*despY 


" 


void AjusteRotarPunto( int *despX, int *despY, int grados ) 

t 

int X0 = *despX; 

int YO = *despY / FactAsp; /* normaliza el aspecto 
antes de la rotación */ 


RotarPunto( £X0, £Y0, grados ); 


*despX = XO0; /* devuelve los valores 
de la posición rotada */ 
*despY = YO0 * FactAsp; /* con la relación 


de aspecto repuesta */ 


void RotarLinea( int x, int y, int grados, 
4nt6 x1, int yl, int x2, int y2 ) 


1 
xl -= x; yl -= y; /* convierte a coordenad bed 
x2 -= X; y2 -= y; /* relativas respecto al */ 
RotarPunto( £x1, £y1, grados ); /* c ción */ 
RotarPunto( £x2, £y2, grados ); 
line( x + xl, y + yl, X + X2, y + y2 ); 

) 


void AjusteRotarLinea( int x, int y, int grados, 
15t6-Xi) 406, Yl, 1nt. 22, 116 y2:) 


1 
KÍ -=>27 yl -= y; /* convierte a coordenadas */ 
x2 -= Xx; y2 -= y; /* relativas respecto al centro 
de rotación */ 
AjusteRotarPunto( £x1, £y1, grados ); /* centro de 
rotación */ 
AjusteRotarPunto( £x2, £y2, grados ); 
line( x + x1l, y + yl, x + x2, y + y2 ); 
) 


woid MostrarRotacion(int grados) 

t 
int á, j, x, y, Punto, Radio = 50; 
settextjustify( CENTER_TEXT, TOP_TEXT ); 
outtextxy( 320, 10, "Original"); 
x = 320; 
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y = 100; 
circle( x, y, Radio ); 


line( x - Radio, y + Radio * FactAsp, 

x + Radio, y - Radio * FactAsp ); 
line( x + Radio, y - Radio * FactAsp, 

x + Radio, y - ( Radio - 20 ) * FactAsp ); 
line( x + Radio, y - Radio * FactAsp, 


x + Radio - 20, y - Radio * FactAsp ); 
outtextxy( 320, 100, "¿Horizontal?"); 
setcolor( RED ); 
x= 160; 
eircle( x, y, Radio ); /* circunferencia de referencia */ 
setcolor( GREEN ); 
x = 480; 
circle( x, y, Radio );/* circunferencia de referer 
setcolor( WHITE ); 
x= 160; y = 30; 
gprint£( £x, €y, "Figura rotada en %d grados", grados); 
gprintf( £x, £y, "sin corrección de aspecto"); 
x= 480; y = 30; 
gprintf( £x, £y, "Figura rotada en %d grados", grados); 
gprintf( £x, £y, "usando la corrección de aspecto"); 


for( i=- 507 i <= 507 4++ ) 
for( j = - 50; J <= 50; J++ ) 
1 


Punto = getpixel( 320 + i, 100 + j ); 
if( Punto > 0 ) 


y = 
RotarPunto( £x, £y, grados ); 
putpixel( 160 + x, 100 + y, Punto ); 
x= di; 

Y = j; 

AjusteRotarPunto( £x, $y, grados ); 
putpixel( 480 + x, 100 + y, Punto ); 

) 


x= 160; y = 180; 

gprint£( £x, £y, "Coordenadas rotadas en %d grados", 
grados); 

gprintf( £x, €y, "sin corrección de aspecto"); 

x = 480; y = 180; 

gprintf( £x, Ey, "Coordenadas rotadas en %d grados", 
grados); 
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J 


gprintf( £x, £y, "usando corrección de aspecto"); 


setcolor( RED ); 
x= 160; y = 250; 
circle( x, y, Radio ); 
RotarLinea( x, y, grados, 

x - Radio, y + Radio * FactAsp, 

X + Radio, y - Radio * FactAsp ); 
RotarLinea( x, y, grados, 

x + Radio, y - Radio * FactAsp, 

x + Radio, y- ( Radio - 20 ) * FactAsp ); 
RotarLinea( x, y, grados, 

Xx + Radio, y - Radio * FactAsp, 

x + Radio - 20, y - Radio * FactAsp ); 


setcolor( GREEN ); 

x= 480; y = 250; 

circle( x, y, Radio ); 

AjusteRotarLinea( x, y, grados, 
X - Radio, y + Radio * FactAsp, 
x + Radio, y - Radio * FactAsp ); 

AjusteRotarLinea( x, y, grados, 
x + Radio, y - Radio * FactAsp, 
x + Radio, y - ( Radio - 20 ) * 
FactAsp ); 

AjusteRotarLinea( x, y, grados, 
x + Radio, y - Radio * FactAsp, 
x + Radio - 20, y - Radio * FactAsp 


main() 


t 


Iniciar(); 
MostrarRotacion( 90 ); 
Pausa(); 

closegraph(); 


3) 


13 


Los colores y su selección 


Los colores son parte inherente a los gráficos de un computador, por lo que 
este capítulo se refiere básicamente a ellos y a su selección bajo los modos 
EGA/VGA y, en segundo lugar, a los sistemas monocromo y CGA. 

Este comentario no significa la descalificación de los modos CGA o mo- 
nocromo; tan sólo es el reconocimiento de que los sistemas CGA tienen po- 
sibilidades de color muy recortadas, mientras que los sistemas monocromo no 
tienen ninguna. 


Apuntes sobre las señales de vídeo 


En los sistemas monocromo, la salida gráfica se limita a dos bits de informa- 
ción por pixel: un bit de activación o desactivación visual y un bit de inten- 
sidad (consulte la Tabla 13-1). 


Tabla 13-1 Atributos de vídeo de los sistemas 


Bit Monocromo Color RGBI Color RrGgBb 
0 Azul Azul primario 
1 Verde Verde primario 
2 Rojo Rojo primario 
3 Vídeo Azul secundario 
4 Intensidad Intensidad Verde secundario 
5 Rojo secundario 
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En los sistemas CGA, el sistema de color RGBI (rojo, verde, azul e inten- 
sidad) se utiliza con cuatro bits de información por cada pixel gráfico, si bien 
las posibles combinaciones se limitan a cuatro: las paletas predefinidas de tres 
colores, más el color de fondo (como se puede ver en la Tabla 13-3). El color 
de fondo por omisión en cada paleta es BLACK (negro), aunque puede selec- 
cionarse entre una amplio rango de 16 colores, como los de la Tabla 13-2, 


Tabla 13-2 Valores de color CGA 


Color Valores Binario Componentes Constante/Nombre 
DECIMAL HEXADECIMAL 4 bits del color del color 

0 0 0000 dile BLACK 

1 1 0001 EN BLUE 

2 z 0010 2 Dí GREEN 

3 3 0011 Ena CYAN 

4 4 0100 a RED 

A 5 0101 AR B MAGENTA 

6 6 orto .RG. BROWN 

7 7 0111 .RGB LIGHTGREY 

8 8 1000 07. DARKGREY 

9 9 1001 La B LIGHTBLUE 

10 A 1010 1 LIGHTGRE 

1 B 1011 1.GB LIGHTCYAN 

12 C 1100 TRio. LIGHTRED 

13 D 1101 IR.B LIGHTMAGENTA 
14 E 1110 IRG. YELLOW 

15 F 1111 IRGB WHITE 


En los sistemas EGA/VGA, el sistema de color RrGgBb utiliza seis bits de 
información por cada pixel, con un total de 64 colores/tonos. Los colores por 
omisión para esta paleta se pueden ver en la Tabla 13-4. 


Colores CGA 


Los sistemas CGA admiten un total de 16 posibles colores, como se ve en la 
Tabla 13-2. En los modos de texto, el color de escritura puede ser cualquiera 
de ellos, mientras que para el fondo sólo se permite uno de los ocho primeros. 
Turbo C++, el controlador ATéÉT con los modos comprendidos entre 
ATT400C0 y ATT400C3 y el controlador MCGA con los modos comprendi- 
dos entre MCGACO y MCGAC3 trabajan de la misma forma que los modos 


LOS COLORES Y SU SELECCIÓN 


275 


CGA comprendidos entre CGACO y CGAC3. De igual forma, el trabajo en 
color bajo el modo CGAHI coincide con el de los modos MCGAMED, 
MCGAHI, ATT400MED y ATT400HI. 

Como puede verse en la Tabla 13-2, cada color viene definido por cuatro 
anotaciones binarias (bits de registro) que controlan los valores del rojo, del 
verde, del azul y la intensidad. Cada opción (cañón de color) tiene dos posi- 
bles valores: alta y baja intensidad. Cuando el bit de intensidad está activo 
(CIERTO), todos los cañones de color se activan en alta intensidad. Si el bit 
de intensidad está en FALSO, todos los cañones de color responden en baja 


intensidad. 
Color de Valor 
la paleta del color 
PALETA NUMERO 
0 0 
I A 
pl Cc 
3 a 
PALETA NUMERO 
0 0 
l B 
2 D 
3 E 
PALETA NUMERO 
0 0 
1 2 
2 4 
3 6 
PALETA NUMERO 
0 0 
1 E 
E 2) 
3 7 


Tabla 13-3 Paletas de color CGA predefinidas 


Binario 
4 bits 


0 (CGACO) 
0000 
1010 
1100 
1110 


1 (CGACI) 
0000 
1011 
1101 
1111 


2 (CGAC2) 
0000 
0010 
0100 
0110 


3 (CGACI) 
0000 
0011 
0101 
0111 


Componentes 
del color 


1.6. 
IR... 
IRG. 


1.GB 
IR.B 
IRGB 


.R.B 
.RGB 


Constante/Nombre 
del color 


BLACK 
LIGHTGREEN 
LIGHTRED 
YELLOW 


BLACK 
LIGHTCYAN 
LIGHTMAGENTA 
WHITE 


BLACK 
GREEN 
RED 
BROWN 


BLACK 
CYAN 
MAGENTA 
LIGHTGREY 
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BLUE se genera al activar el cañón de azul en baja intensidad; LIGHT- 
BLUE también necesita del cañón de color azul pero, debido al indicador (bit) 
de intensidad, aquél se activa en alta, produciendo un color más brillante. De 
igual manera, la activación de los cañones correspondientes al verde y al azul 
genera el CYAN; al añadir la señal de intensidad se genera al LIGHTCYAN. 

Observe que el hecho de activar exclusivamente la señal de intensidad (con 
los cañones de rojo, verde y azul inactivos) todavía produce una respuesta de 
los tres cañones de color, aunque ésta sea muy baja, dando lugar a DARK- 
GREY. Esto puede considerarse como un error (bug) convertido en una ca- 
racterística (y, con toda probabilidad puede que haya sido creada de esta 
forma). 

En modo gráfico, el sistema CGA admite multiplicidad de colores sólo en 
cuatro modos de 320x200 pixels y baja resolución (CO, C1, C2 y C3). Cada 
uno de estos modos selecciona una de las paletas predefinidas de cuatro co- 
lores mostradas en la Tabla 13-3. 

Por omisión, el color de fondo de cada paleta es BLACK, pero puede 
intercambiarse con cualquiera de los 16 colores CGA (consulte la Tabla 13-2) 
a través de la función setbkcolor. Las funciones setpalette y setallpalette, 
utilizadas en los modos EGA/VGA para cambiar los colores de la paleta, no 
son aplicables en los modos CGA. Sin embargo, existe una excepción: la 
función setpalette (indicepaleta, color) puede utilizarse con el valor cero de 
indicepaleta (fondo) como alternativa a la función setbkcolor, 

Los colores CGA BLUE (valor 1), DARKGREY (valor 8) y LIGHTBLUE 
(valor 9) no aparecen en ninguna de las paletas definidas. Estos colores pue- 
den utilizarse, por supuesto, como colores de fondo. 


Alta resolución CGA 


En cualquiera de los modos de alta resolución (CGAHI, MCGAMED o 
ATT400MED de 640x200 pixels, MCGAHI de 640x480 pixels, o ATT400HI 
de 640x400 pixels) se admiten dos colores: un fondo negro y un color de 
escritura, El color de escritura se selecciona entre los 16 colores CGA a través 
de la función setbkcolor. 

Esto no constituye un error (debido a una peculiaridad del hardware CGA, 
la función setbkcolor se utiliza para seleccionar el color de escritura CGAHD). 
El color de fondo permanece negro. 

Todos los pixels con valor 1 se muestran en el color del primer plano; los 
pixels con valor cero permanecen en negro. 
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Los adaptadores de vídeo VGA e IBM8514 


En el otro extremo, la máxima resolución en color viene dada por la tarjeta 
IBM-8514 y el modo IBM8514 o por la tarjeta de vídeo VGA con controlador 
VGA256,BGI (consulte el Apéndice E), admitidos ambos por la función se- 
trgbpalette. 

La función setrgbpalette permite la definición del color a medida sobre 
paletas de 256 colores. Para mantener la compatibilidad con otros adaptadores 
de vídeo, los 16 primeros valores de la paleta vienen predefinidos por los 
controladores .BGI con objeto de hacerlos corresponder con los valores por 
omisión de la paleta de colores EGA/VGA. 

Los 256 valores de la paleta (numerados del O al 255) pueden definirse 
individualmente por tres argumentos enteros: rojo, verde y azul. Aunque los 
argumentos pasados a la función setrgbpalette son valores enteros, sólo los 
seis bits más, significativos del byte de menor peso binario se utilizan en la 
actualidad para activar los valores de color de la paleta (valores desde el O 
hasta el 252 en pasos de a cuatro. Los argumentos de los valores 252, 253, 
254 y 255 se tratan de igual manera, puesto que los seis bits más significativos 
son los mismos y sólo los dos bits menos significativos son diferentes). 


Color EGA/VGA 


Los modos de vídeo EGA/VGA ofrecen una paleta de 16 colores selecciona- 
dos de un espectro de 64 posibles tonalidades. En la actualidad, los sistemas 
VGA admiten gamas de color más amplias, con 256 posibles colores y 256K 
posibles tonos, Los procedimientos EGA/VGA están limitados a la gama de 
colores EGA, aunque son capaces de admitir las mayores resoluciones. 

Los modos EGA/VGA también comienzan con una paleta por omisión de 
16 tonos, ' 

A diferencia del sistema de color CGA, que utiliza colores representables 
de cuatro bits, cada color EGA/VGA viene definido por un valor de 6 bits, 
Esto se denomina normalmente sistema de color RrGgBb. 

El sistema de color RrGgBb aporta dos indicadores (y dos señales) por 
cada uno de los cañones de color: un Rojo primario y un rojo secundario, un 
Azul primario y un azul secundario, y un Verde primario y un verde secun- 
dario (Se suele escribir el primario en mayúsculas y el secundario en minús- 
culas). 

Si así lo prefiere Vd., puede pensarse que los sistemas RrGgBb y RGBI 
son análogos, con la diferencia de que los colores secundarios actúan como 
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indicadores individuales de la intensidad de cada uno de los cañones de color 
primario. 

Al igual que DARKGREY se generó en CGA simplemente activando el 
indicador de intensidad, y dejando inactivos todos los indicadores de color, 
EGA_DARKGREY activa los indicadores rgb (intensidad) mientras deja los 
cañones de color RGB (primarios) inactivos. Por otra parte, mientras el siste- 
ma CGA creó el color BROWN mezclando los cañones rojo y verde, 
EGA_BROWN ha sido creado mezclando el cañón Rojo con el indicador de 
intensidad verde (en efecto, la mezcla del rojo con un verde muy poco intenso 
produce un marrón más profundo). 

Además del EGA_BROWN, los colores de paleta por omisión para 
EGA/VGA son los mismos que para CGA, con la diferencia del uso de las 
tres señales de intensidad (rgb) en lugar de un único indicador de intensidad 
(que controla en grupo los tres cañones de color). Los colores por omisión se 
muestran en la Tabla 13-4, 


Tabla 13-4 Paleta por omisión para EGA/VGA 
Color de Valor Binario Componentes Constante/Nombre 
la paleta del color 6 bits del color del color 
0 0 000000... EGA_BLACK 
1 1 000001 EGA_BLUE 
2 2 000010 EGA_GREEN 
3 3 000011 O EGA_CYAN 
4 4 000100 TO EGA_RED 
5 3 000101 E B EGA_MAGENTA 
6 14 010100 "ER EGA_BROWN 
WN 7 000111 ¿RGB EGA_LIGHTGREY 
8 38 111000 18 Dia) EGA_DARKGREY 
Ñ 39 111001 rgb..B EGA_LIGHTBLUE 
A 3A 111010 rgb.G. EGA_LIGHTGREEN 
B 3B 111011 rgb.GB EGA_LIGHTCYAN 
e 30 111100 rgbR.. EGA_LIGHTRED 
D 3D 111101 rgbR.B EGA_LIGHTMAGENTA 
E, 3E 1111LO rgbRG. EGA_YELLOW 
E 3F 111111 rgebRGB EGA_WHITE 


Una amplia gama de tonos 


Una de las ventajas de EGA/VGA, junto a la posibilidad de poder utilizar 16 
colores en los modos de alta resolución, es poder seleccionar una paleta a 
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partir de 64 tonos diferenciados. Hay que reconocer que algunos de estos 64 
colores no son particularmente atractivos y el matiz de un determinado tono 
está sujeto a ajustes de balance sobre la pantalla en uso (pero la belleza, como 
siempre, está en el ojo y en la pantalla del observador). 

Como ejemplo de los matices de un color, la Tabla 13-5 muestra 11 varie- 
dades de amarillo que varían desde el valor 06, que coincide con el color CGA 
BROWN, hasta el color 62, que corresponde al EGA_YELLOW. 

Mirando los componentes del color de la Tabla 13-5, podemos darnos 
cuenta de que todos los amarillos incluyen el verde y, con dos excepciones, 
el rojo combinado. En un caso, el de valor 18, el color consiste en un verde 
de alta intensidad (pero, dependiendo de los colores del entorno y del fondo, 
puede reconocerse tanto como amarillo, verde o chartreuse). El reconocimien- 
to preciso y el nombre que se le aplique a cualquier color es en gran medida 
un asunto de percepción subjetiva. 


Tabla 13-5  Amárillos EGA 


Componentes 

Decimal Hexadecimal Binario primarios y 
de 6 bits secundarios 

06 06h 000110 ROA 
14 oEh 001110 -bRG. 
18 12h 010010 8010. 
22 16h 010110 .g.RG: 
26 LAh 011010 .gb.G, 
30 Eh 011110 .g£bRG. 
38 26h 100110 1. .RO. 
46 2Eh 101110 r.bRG. 
54 36h 110110 rg.RG. 
55 37h 110111 rg. RGB 
62 3Eh 111110 rgbRG. 


Manipulación del color y del tono 


En el sistema de color EGA/VGA se pueden crear valores específicos de color 
sin más que manipular las combinaciones de los indicadores primario y se- 
cundario de cada cañón de color. Cada uno de los tres cañones de color tiene 
cuatro posibles valores: totalmente inactivo, baja intensidad (color inactivo, 
intensidad activa), normal (color activo, intensidad inactiva), y alta intensidad 
(color activo, intensidad activa), con un total de 43 (6 64) colores. 
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Si fuera necesaria la manipulación directa de los colores podría efectuase 
el tratamiento de estos valores a nivel de bit; de esta forma sería factible la 
construcción de un color específico; posteriormente podría asignarse el valor 
creado a la paleta EGA/VGA. Por ejemplo, supongamos que fuera necesario 
generar tres verdes puros. El bit 1 controla el cañón del color verde (el bit O, 
a la derecha, es azul) y el bit 4 es el indicador de intensidad del verde, por lo 
que los tres verdes puros, en orden de intensidad, serían 16 (010000 ó .g....), 
2 (000010 ó ....G.), y 18 (010010 ó .g..G.). 

El primer verde (valor 16) es un verde oscuro, parecido al caqui. El segun- 
do (valor 2) es un verde bastante puro y corresponde al EGA_GREEN, mien- 
tras que el tercer verde (valor 18) es un verde brillante o chartreuse y, depen- 
diendo de su entorno, parece casi amarillo (incluso está incluído en los 
amarillos de la Tabla 13-5). 

Pero hay otro verde que no aparece entre los valores posibles. Este cuarto 
verde es el EGA_LIGHTGREEN, valor 58 (111010 ó rgb.G.). En este caso, 
el sistema rgb produce DARKGREY (que, mientras estemos trabajando con 
emisión de luz y no con absorción/reflexión de color, es un blanco suave). El 
gris oscuro se añade al cañón del color verde pará conseguir un verde más 
luminoso sin necesidad de abusar del balance con el chartreuse. 

Para mostrar alguna de estas interrelaciones y proporcionar un método 
adecuado para examinar la variedad de posibles colores, se presentan dos 
programas de demostración: COLORCUB.C y COLORES.C. Observe que 
estos programas de demostración sólo funcionarán en sistemas EGA/VGA. 
No se ha previsto ninguna adaptación al sistema CGA; sólo han sido diseña- 
dos para sistemas en color y alta resolución. 


El cubo de las relaciones entre colores 


El programa COLORCUB.C utiliza la paleta de colores por omisión para 
crear un cubo doble que muestre las interrelaciones entre los colores primarios 
y secundarios. 

El espectro físico, como el que se ve en un arco iris o como el mostrado 
por un prisma, comienza en el rojo, avanza por el naranja, amarillo, verde, 
azul, y finaliza en el violeta. Para crear nuestro propio espectro de colores 
sólo disponemos de rojo, verde y azul. Estos tres colores primarios son los 
tres colores que mejor percibe el ojo humano, y combinándolos en forma de 
luz, el ojo percibe colores que no están presentes en este momento. 

En el caso de una señal de TV, estos mismos tres colores permiten gene- 
rarlo todo, desde la sutil gama de tonos de la carne humana hasta los rótulos 
relampagueantes promovidos por los comerciantes de automóviles, que apare- 
cen en los anuncios nocturnos. La TV, utilizando señales analógicas, es capaz 
de ofrecer graduaciones y combinaciones de colores primarios más finas que 
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Figura 13-1 Cubo de colores 


Pulse <T> para terminar u otra tecla para cambiar color 


Esta imagen gráfica ha sido creada con COLORCUB.C sobre una pantalla VGA y ha sido 
capturada como archivo de imagen .PCX antes de su conversión a la escala de grises. 


las aportadas por el computador que, en modo EGA/VGA, se limita a cuatro 
valores. 

Observe que la figura creada por COLORCUB.C (consulte la Figura 13-1) 
tiene cuatro ejes principales: rojo, verde, azul y blanco (o intensidad). La 
retina humana tiene tres tipos de receptores del color que se cree correspon- 
den a los tres colores primarios. La percepción del color no se limita simple- 
mente al reconocimiento de estos tres valores, sino también al de la intensidad 
relativa de cada uno y al balance entre ellos. Una combinación equilibrada de 
los tres colores se percibe como gris o blanco, dependiendo de la intensidad 
global. 

Como ya se ha dicho, la forma de percepción de los colores se ve afectada 
por los colores de su entorno. COLORCUB.C muestra este efecto intercam- 
biando los colores EGA_BLACK y EGA_WHITE con el color 0 de la paleta 
(fondo) y el color 15 de la misma. 
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La demostración COLORES.C 


La demostración COLORES.C (consulte la Figura 13-2) es sencilla y comien- 
za con tres variables globales: Radio, que activa el tamaño de los círculos 
sobre la pantalla; Avanzar, que se utiliza como indicador booleano para indi- 
car si los valores deben incrementarse o decrementarse; y Paleta, que es la 
estructura de la paleta de colores. El tipo estructurado palettetype se define en 
GRAPHICS.H. 


int Radio = 30; 
int Avanzar = 1; 
struct palettetype Paleta; 


El procedimiento principal pone en funcionamiento el sistema gráfico por 
medio del mismo procedimiento Iniciar utilizado en los otros programas de 
este libro. Si Vd. todavía no ha descifrado el funcionamiento del procedi- 
miento Iniciar, no merece la pena ofrecerle cualquier otra descripción de un 
procedimiento de iniciación o configuración. 


Figura 13-2 Demostración de la gama de colores 


Pulse <T> 5 terminar o cuolquier tecla para cambior de color 


Z 4 
1 


Pulse <+> para 
avanzar 


Pulse <-> para 
retroceder 


Esta imagen gráfica ha sido creada por COLORES.C en una pantalla VGA y ha sido captu- 
rada como archivo de imagen .PCX antes de su conversión a la escala de grises. 
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Los procedimientos settextjustify y settextstyle eligen una fuente de ca- 
racteres y una justificación de texto para la visualización de la pantalla de 
datos, y luego escriben los mensajes apropiados sobre ésta. 


main() 

t 
Iniciar(); 
settextjustify( CENTER_TEXT, CENTER_TEXT ); 
settextstyle( SANS_SERIF_FONT, HORIZ_DIR, 1 ) 
outtextxy( 320, 10, 
"Pulse <T> para terminar o cualquier tecla para 

cambiar de color " ); 

outtextxy( 100, 250, "Pulse <-> para" ); 
outtextxy( 100, 270, " retroceder " ); 
outtextxy( 540, 250, "Pulse <+> para "); 
outtextxy( 540, 270, " avanzar "NT 


A continuación, se crea una paleta especial por medio del procedimiento 
IniciarColores. MuestraColores escribe 16 círculos coloreados en dos filas, 
RuedaColor crea un gráfico de tarta con los mismos 16 colores y, con la 
pantalla puesta a punto y dibujada, CambiaColores está preparada para mos- 
trar los 64 colores EGA/VGA., 


IniciarColores(); 
MuestraColores(); 
RuedaColor(); 
CambiaColores(); 
closegraph(); 


En el procedimiento IniciarColores, en vez de utilizarse los colores por 
omisión de la paleta EGA/VGA, se restituyen los elementos de ésta con los 
valores de los colores 0,...,15 (los primeros 16 colores). La función setpalette 
asigna los valores enteros sin signo a los índices de la estructura Paleta. 


void IniciarColores() 


t 
in 00d 
for( i=0; i<=15; i++ ) setpalette( i, i ); 


El procedimiento MuestraColores utiliza un bucle de O a 7 para dibujar 16 
círculos en dos líneas a lo largo de la parte superior de la pantalla. 
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void MuestraColores() 


1 
intplcia 
getpalette( £Paleta ); 
for( i=0; i<=7; i++ ) 
5 


La primera línea de círculos utiliza los primeros ocho colores de la paleta: 
Paleta.colors[0],...,Paleta.colors[7]. Por el momento, estos son también los 
primeros ocho posibles colores. Son los valores de los elementos de la paleta 
los que se asignan a los pixels de la pantalla y no los valores de color conte- 
nidos en cada elemento de ésta. 


setfillstyle( SOLID_FILL, i ); 
circle( 80 * i + 40, 50, Radio ); 
flooáfillí 80 * i + 40, 50, getcolor() ); 


La función LetreroColor pone un rótulo a cada círculo pintado con el valor 
del color (no con el valor del número de orden en la paleta). 


LetreroColor( i ); 


La segunda fila de círculos toma el segundo grupo de elementos de la 
paleta (Paleta.colors[8],...,Paleta.colors[15]). 


setfillstyle( SOLID_FILL, i +8 ); 
circle( 80 * i + 40, 130, Radio ); 
floodfil1( 80 * i + 40, 130, getcolor() ); 
LetreroColor( i +8); 


El procedimiento LetreroColor se invoca con un único argumento, con el 
que se especifica el índice de la paleta; éste lee el valor, lo deposita en 
Paleta.colors[i] y lo escribe en la pantalla al lado del círculo coloreado. Cada 
vez que se cambia un elemento de la paleta, los rótulos afectados por el color 
correspondiente sufren una reescritura, no así el resto de la pantalla, que 
permanece invariable ante tales cambios. 


void LetreroColor( int i ) 
1 
A) 
gprintxy( 80*i-600,135+Radio," %d ",Paleta.colors[il ); 
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else 
gprintxy( 80*i+40, 55+Radio," %d ",Paleta.colors[il ); 


La función RuedaColor dibuja una segunda pantalla en forma de gráfico 
de tarta, con las 16 porciones rellenas con los 16 colores de la paleta. 


void RuedaColor() 


t 
int di; 
for( i=0;3 i<=15; i++ ) 
js 
setfillstyle( SOLID _FILL, 15-i ); 
pieslice( 320,270,i1 * 22.5, (i+1) * 22.5, Radio * 3 ); 


J ) 


El último elemento de esta demostración es el procedimiento CambiaCo- 
lores. 


void CambiaColores () 


1 
int i, EsteColor, Terminar=0; 


char Tecla; 


La variable Terminar recibió inicialmente el valor 0 (Falso), definiendo 
una condición de bucle que seguirá en pie hasta que Terminar sea distinta de 
cero. Hasta ese momento, CambiaColores espera una estrada de teclado. 

Una entrada igual a T o t incrementa el valor de Terminar con objeto de 
permitir la salida del procedimiento; una entrada igual a - o + selecciona una 
dirección para el cambio de los colores. 


while( !Terminar ) 

t 
int EsteColor; 
Tecla = getch(); 
if( (toupper(Tecla) == 'T') ) Terminar++; 
if( Tecla == '- ) Avanzar = 0; 
1£( Tecla == +” ) Avanzar = 
if( ¡Terminar ) 
1 


Cualquier entrada de teclado que no seleccione la condición de salida da 
pie a un bucle que incrementa o decrementa los valores vigentes de color de 
la paleta, El bucle se repite a lo largo de los 16 índices de la paleta; la variable 
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EsteColor toma el valor de cada elemento de la paleta en cada paso del bucle 
(Paleta.colors[i]). Posteriormente EsteColor se incrementa o decrementa se- 
gún la opción, procediéndose finalmente a un examen que asegure la perme- 
nencia del color resultante en el intervalo 0-63. 


for( 150; i<=15; i++ ) 
t 
EsteColor = Paleta.colors[i]; 
if( Avanzar ) EsteColor++; 
else EsteColor--; 
if( EsteColor < 0 ) EsteColor = 63; 
if( EsteColor > 63 ) EsteColor = 0; 


Por último, setpalette carga Paleta.colors[i] con el nuevo valor del color, 
getpalette actualiza el registro Paleta, LetreroColor actualiza el rótulo de la 
pantalla, y se ejecuta un retardo de 30 milisegundos antes de continuar con la 
siguiente iteración del bucle. 


setpalette( i, EsteColor ); 
getpalette( SPaleta ); 
LetreroColor( i ); 
delay(30); 


Cuando ejecute esta demostración se dará cuenta de que los colores de la 
pantalla cambian inmediatamente cada vez que se le pasa un valor nuevo a 
setpalette. Si desea des r algo más este efecto, incremente el valor almace- 
nado en delay(30) y añada un nuevo retardo antes de actualizar el rótulo de 
la pantalla. 

Recuerde que la única acción necesaria para cambiar un color en la panta- 
lla consiste en asignar un nuevo valor al elemento adecuado de la paleta, Esta 
acción actualizará toda la pantalla en el siguiente ciclo de barrido, inde- 
pendientemente de las opciones de la ventana o de la página de vídeo activa 
de manera vigente. 

Esta velocidad de cambio también permite obtener otros efectos. Por ejem- 
plo, podrían definirse varias paletas en forma de un array de tipo paleta (struct 
patelletype paletalt [10] declara un array de 10 paletas, numeradas de 0 al 9). 
Estas paletas de colores pueden utilizarse para guardar cualquier array con los 
colores deseados. 


for (i=0; i<=16, i++) 
Paleta.colors[i] = 
paletalt[ paletanueva ].colors[il; 
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El bucle puede asignar cualquiera de ellas como paletanueva a la defini- 
ción de Paleta activa. Turbo C++ no permite la asignación directa de arrays 
de la forma: Paleta = paletalt [ paletanueva ]. Mientras parezca que funciona 
esta asignación (y no existan condiciones de error ni la estructura Paleta 
contenga valores nuevos) los colores de la pantalla permanecerán sin cambios 
y seguirán utilizando la paleta especificada por omisión. 

En conclusión, disponemos de un par de programas de demostración a todo 
color. Juegue con ellos por separado durante un momento. Intente hacer algún 
experimento para ver qué pasa. Si no ocurre nada, todo irá bien. 

Tómese la molestia de manipular los valores de los colores y obtendrá 
resultados interesantes. Intente, también, utilizar los operadores de despl: 
miento (< y >) directamente sobre los valores anteriores (no sobre los núme- 
ros de los elementos de la paleta). Los efectos producidos no serán los habi- 
tuales. Tómese tiempo, relájese y juegue con la asignación de los colores; 
qué ocurre. Pudiera ser que encontrase alguna cosa útil o simplemente 
nante, o quizá ambas a la vez. 


COLORCUB.C 
Vis Gama de Colores para una Paleta tipo EGA */ 


/[fonazanz=a 


Hifdef _ TINY 

Hterror La demostración no funciona si se compila en el 
modelo TINY. 

Htendif 


include <conio.h> 
ttinclude <stdio.h> 
ttinclude «<stdlib.h> 
tiinclude <stdarg.h> 
tinclude <graphics.h> 


int ControladorGrafico; /* controlador del dispositivo 
gráfi * 
int ModoGrafico; /%* valor del modo grá */ 


int MaxColores; /* valor máximo de colores disponibles */ 
int CodigoError = 0; /* informe de los errores gráficos */ 
int Radio = 20; 

int ValorX[3] = ([ 235, 380, 525 ); 

int ValorY[3] 230, 135, 40 ); 
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int DespX[3] = 1 0, -90, -180 ); 
int DespY[3] = ( 0, 30, 60 ); 
int Colores; 


void Iniciar() 


4 


/* inicia el sistema gráfico e informa 

de los errores */ 

ControladorGrafico = DETECT; /* solicita autodetección */ 
initgraph( £ControladorGrafico, £ModoGrafico, 

"C: ANTONNBGI" ); 

CodigoError = graphresult(); /* resultado de la 

iniciación */ 

/* si hay error durante 

la iniciación */ 


if ( CodigoError != grok ) 


t 
printf(" Error en el Sistema de Gráficos: %sin", 
grapherrormsg( CodigoError ) ); 
exit( 1 ); 


void PonCirculo( int x, int y, int z, int color ) 
1 
setfillstyle( SOLID_FILL, color ); 
setlinestyle( SOLID_LINE, 0, 1 ); 
setcolor( EGA_WHITE ); 
circle( ValorX[x] + DespX[z], ValorY[y] + DespY[z], 
Radio ); 
setcolor( EGA_BLACK ); 
circle( ValorX[x] + DespX[z], ValorY[y] + DespY[z], 
Radio / 2 ); 
floodfil1( ValorX[x] + DespX[z] + 1, 
ValorY[y] + DespY[z] + 1, EGA_WHITE ); 
setcolor( EGA_LIGHTGRAY ); 
J 


void Arista( int x1, int yl, int z1l, int x2, int y2, 
int z2, int grosor ) 
1 
setlinestyle( SOLID_LINE, 0, grosor ); 
line( ValorX[x1] + DespX[z1], ValorY[y1] + DespY[z1], 
ValorX[x2] + DespX[z2], ValorY[y2] + DespY[z2] 


) 
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void CuboColor() 

1 
setcolor(EGA_RED); 
Arista( 0, 0, 0, 1, 0, 0,3) 
Aristal 1, 0, 0, 2, Or 0, 3) 
Arista 1,507 0, LL 002 ) 
Arigta( 1,00. 07 19, Lo 10) 
PonCirculo( 1, 0, 0, EGA_RED 
setcolor(EGA_BLUE); 
Arista( 0, 0, 0, 0, 1, 0, 3 ): 
Arista( 0, 1, 0, 0, 2, 0, 3 );5 
Arista( 0, 1, (0, 15 17 04 1) 
Arlieta( 0, 1, 0, 0, 1, 1, 1 )5 
PonCirculo( 0, 1, 0, EGA_BLUE ); 
setcolor (EGA_GREEN) ; 
Arista( 0, 0, 0, 0, 0, 1, 3) 
Arista( 0, 0,-1, 0, 0, 2, 3) 
Arista( 0, 0, 1, 1, 0,1, 1) 
Arista( 0, 0, 1, 0, 1,1, 1) 
PonCirculo( 0, 0, 1, EGA_GREE! 
setcolor(EGA_LIGHTGRAY); 
Arieta( 0, 0, 0, 1, l. 1, 3 )1 
Arista( 1, 1, 1, 2, 2, 2, 3 ): 
PonCirculo( 0, 0, 0, EGA_BLACK ); 
Arista( 0, 1, 1, 1, 1, 1, 1); 
PonCirculo( 0, 1, 1, EGA_CYAN ); 
Arista( 1, 1, 0, 1, 1, 1, 1.)3 
PonCirculo( 1, 1, 0, EGA_MAGENTA ); 
Arletad Ln 01) Ll, ple hr 
PonCirculo( 1, 0, 1, EGA_BROWN ); 
PonCirculo( 1, 1, 1, EGA_LIGHTGREY ); 
setcolor(EGA_LIGHTRED); 
Arista( 2, 0, 0, 2, 2, 0, 1 ); 
Arista( 2, 0, 0, 2, 0, 2, 1 ); 
PonCirculo( 2, 0, 0, EGA_LIGHTRED ); 
setcolor(EGA_LIGHTBLUE); 
Arista( 0, 2, 0, 0, 2, 2, 1); 
Arista( 0, 2, 0, 2, 2, 0, 1 ); 
PonCirculo( 0, 2, 0, EGA_LIGHTBLUE ); 
setcolor(EGA_LIGHTGREEN); 
Arista( 0, 0, 2, 2, 0, 2, 1 ); 
Arista( 0, 0, 2, 0, 2, 2, 1 ); 
PonCirculo( 0, 0, 2, EGA_LIGHTGREEN ); 
Arista( 2, 2, 0 27.241) 
PonCirculo( 2, 2, 0, EGA_LIGHTMAGENTA ); 
Arista( 0, 2, 2 27027 UY 
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PonCirculo( 0, 2, 2, EGA_LIGHTCYAN ); 
Arista( 2,0, 2, 2, 272, 1) 
PonCirculo( 2, 0, 2, EGA_YELLOW ); 
PonCirculo( 2, 2, 2, EGA WHITE ); 


void CambiaColores() 
1 
int Terminar = 0; 
char Tecla; 


while( !Terminar ) 
El 
Tecla = getch(); 
if( (toupper(Tecla) == 'T') ) Terminar++; 
if( Colores ) 
1 
setpalette( 0, EGA_BLACK ); 
setpalette( 15, EGA_WHITE ); 
Colores = 0; 
+ 
else 
t 
setpalette( 0, EGA_WHITE ); 
setpalette( 15, EGA_BLACK ); 
Colores = 1; 


JAR 

main () 

1 
Iniciar(); 


Colores = 1; 

outtextxy( 10, 10, 

" Pulse <T> para terminar u otra tecla 
para cambiar color" ); 

CuboColor(); 

CambiaColores(); 


closegraph(); /* vuelve al modo texto */ 
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E COLORES.C ee 
pe Gama de colores para una Paleta tipo EGA e 


Hifdef —_TINY__ 

ferror La demostración no funciona si se compila en el 
modelo TINY. 

Htendif 


ttinclude <conio.h> 
ttinclude <stdio.h> 
ttinclude <stdlib.h> 
Htinclude <stdarg.h> 
ttinclude <graphics.h> 
tinclude "gprint.i" 


int ControladorGrafico; /* controlador del dispositivo 
grá o. *? 

int ModoGrafico; /* valor del modo gráfico */ 
int MaxColores; /* máximo núme lores 
d Les, */ 


int CodigoError = 0; 
int Radio = 30; 
int Avanzar = 1; 


struct palettetype Paleta; 


void Iniciar() 
( ya ia el sistema gráfico e informa de los er 


Y dá 
ControladorGrafico = DETECT; /* solicita autodetección */ 


initgraph( £ControladorGrafico, £ModoGrafico, 
"CI3ANTCANBGI")7 


CodigoError = graphresult (); /* examina re: tados 


iniciación */ 


if ( CodigoError != gr0k ) 


1 
printf(" Error en el Sistema de Gráficos: %sin", 
grapherrormsg( CodigoError )); 
exit( 1); 
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void LetreroColor( int i ) 
t 
AE ASA) 
gprintxy( 80*i-600, 135+Radio, " %d ", 
Paleta.colors[i] ); 
else 
gprintxy( 80*i+40, 55+Radio, " %d ", 
Paleta.colors[i] ); 
, 


void MuestraColores() 
1 


106, m7 


getpalette( SPaleta ); 
for( 1=0; l<=7; i++ ) 
t . 
setfillstyle( SOLID_FILL, i ); 
circle( 80 * i + 40, 50, Radio ); 
floodfil1( 80 * i + 40, 50, getcolor() ); 
LetreroColor( i ); 
setfillstyle( SOLID_FILL, 1 + 8 ); 
circle( 80 * i + 40, 130, Radio ); 
floodfil1( 80 * i + 40, 130, getcolor() ); 
LetreroColor( i +8); 


) 


void RuedaColor() 
t 


int. 4: 


for( i1=0; d<=15; i++ ) 
t 
setfillstyle( SOLID _FILL, 15-i ); 


pieslice( 320, 270, 1 * 22.5, (1 + 1) * 22.5, 


Radio * 3 ); 
) 


void CambiaColores() 
t 
int ¿i, Terminar = 0; 
char Tecla; 
while( !Terminar ) 
t 
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int EsteColor; 
Tecla = getch(); 
if( (toupper(Tecla) == 'T') ) Terminar++; 
if( Tecla == '-” ) Avanzar = 0; 
if( Tecla == '+"” ) Avanzar = 1; 
if( !Terminar ) 
1 
for( i=0; i<=15; i++ ) 
1 
EsteColor = Paleta.colors[i]; 
if( Avanzar ) EsteColor++; 
else EsteColor--; 
if( EsteColor < 0 ) EsteColor = 63 
if( EsteColor > 63 ) EsteColor = 0 
setpalette( i, EsteColor ); 
getpalette( £Paleta ); 
LetretoColor( i ); 


J 


delay(30); 
IA 


void IniciarColores() 


t 


) 


int. 37 
for( i= 


main() 


pa 


Iniciar(); 


¡ d<=15; i++ ) setpalette( i, i ); 


settextjustify( CENTER_TEXT, CENTER_TEXT ); 


settextstyle( SANS_SERIF_FONT, HORIZ_DIR, 1 ); 
"Pulse <T> para terminar 
o cualquier tecla para cambiar de color”); 


outtextxy( 320, 10, 


outtextxy( 100, 250, 
outtextxy( 100, 270, 
outtextxy( 540, 250, 
outtextxy( 540, 270, 
IniciarColores/(); 
MuestraColores (); 
RuedaColor (); 
CambiaColores(); 
closegraph(); 


"Pulse <-> para" ); 


" retroceder " ); 
"Pulse <+> para "); 
” avanzar Ya 


14 


Salida por impresora gráfica 


Los gráficos de un computador son de gran belleza, pero, a menos que Vd. 
pueda crearlos sobre papel, pueden resultar bastante frustrantes. Pegar un 
terminal de computador sobre un papel es algo imposible. 

En los modos de texto, la orden ejecutada al pulsar las teclas Shift-PrtSc 
(Shift-ImprimirPantalla) permite enviar una pantalla ASCIT a la impresora; 
existen, además, otras utilidades TSR para ejecutar la misma tarea desde la 
pantalla gráfica. Estas últimas, sin embargo, han resultado ser menos satisfac- 
torias. La mayoría sólo funcionan con determinadas impresoras, trabajan 
sólo en determinados modos y, cuando se utilizan, pueden llegar a ocupar 
demasiada memoria residente, impidiendo que otras aplicaciones puedan 
ejecutarse. 

En este capítulo se han creado dos utilidades para la impresión monocromo 
de pantallas gráficas sobre impresoras Epson (matrices de puntos) y LaserJet. 
Estas utilidades de salida gráfica soslayan los problemas mencionados al po- 
der confeccionarse a la medida de cualquier dispositivo de salida; se adaptan 
a cualquier modo visual y pueden incorporarse directamente a los programas 
de aplicación. 

La mayoría de los usuarios disponen de pantallas en color pero no de 
trazadores gráficos en color, por lo que el controlador gráfico LaserJet incor- 
pora, además de los modos Vertical (Portrait) y Apaisado (Landscape), un 
modo de Escala de Grises (Greyscale, con dos opciones: escala normal e 
invertida) que convierte los colores en una secuencia de hasta 16 sombras de 
grises para la salida. 

Por favor, recuerde: todos los dispositivos gráficos de salida que se mues- 
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tran aquí son controladores genéricos. Han sido diseñados especialmente para 
trabajar con la mayoría de los dispositivos matriciales o laserjet que existen 
en el mercado o pueden adaptarse fácilmente al trabajo con la mayor parte de 
los dispositivos aun cuando estos necesiten distintos códigos de tratamiento. 
Los dispositivos estándar elegidos (serie Epson MX/FX matricial y HP Laser- 
Jet Serie II) son de hecho los estándares industriales. La mayor parte de los 
dispositivos, independientemente de los registros de marca de los fabricantes, 
utilizan básicamente los mismos códigos de control y operan de la misma 
forma. 

El capítulo no tratará las impresoras matriciales de cinta multicolor ni las 
impresoras de inyección de tinta multicolor. Sin embargo, es muy fácil crear 
un controlador especial para estos dispositivos si se sigue el patrón de los 
ejemplos en monocromo que aquí se da. 


Utilización de las impresoras matriciales Epson 


La impresora Epson FX-85 es considerada como el dispositivo estándar de las 
impresoras matriciales. Esto nos asegura la compatibilidad con las series MX 
y RX, y con la mayor parte de las impresoras de la serie LX (inyección o 
chorro de tinta) y las impresoras matriciales de los otros fabricantes. Aunque 
casi todas ofrecen modos gráficos compatibles con Epson, se aconseja consul- 
tar el manual correspondiente con objeto de conocer el grado de compatibili- 
dad y poder adaptar el controlador de gráficos de la manera más conveniente. 

Las operaciones gráficas con matrices de puntos que aquí se desarrollan 
han sido diseñadas para cabezas de 9 agujas, por lo que este controlador no 
es compatible directamente con las nuevas impresoras matriciales que utilizan 
cabezas de impresión de 24 agujas. Las operaciones, sin embargo, son análo- 
gas. Además, el controlador EP-GRAPH.I puede adaptarse fácilmente a los 
nuevos tipos de impresoras. 

La impresora FX-85 ofrece ocho modos de operación gráfica según se 
muestra en la Tabla 14-1. Cuidado: en caso de utilizar una impresora Epson 
(o compatible) con el conmutador de selección en modo IBM, o una impresora 
matricial de IBM, sólo se podrán utilizar los modos gráficos 0-3. 

Aunque Epson incorpora el modo 4 (CRT 1) para hacer coincidir su den- 
sidad con la de la pantalla QX-10 de un computador, ninguno de los modos 
presenta una coincidencia exacta con los modos de pantalla CGA o 
EGA/VGA. Algunos, sin embargo, incorporan una mayor coincidencia que 
otros, pero ello depende de la orientación de la salida. 
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Tabla 14-1 Modos gráficos de Epson FX-85 


Modo Densidad Descripción Velocidad 

0 Elemental 60 dpi* 16 pulg/seg 
1 Doble velocidad baja 120 dpi 8 pulg/seg 
2 Doble velocidad alta 120 dpi 16 pulg/seg! 
3 Cuádruple 240 dpi 8 pulg/seg! 
4 CRT 1 80 dpi 8 pulg/seg? 
5 Uno a uno 72 dpi 12 pulg/seg? 
6 CRT IM 90 dpi 8 pulg/seg 
il Densidad dual 144 dpi 3 pulg/seg? 


No imprime puntos consecutivos en ninguna fila. 

Coincide con la densidad de pantalla Epson QX-10 

Modos del trazador gráfico: proporcionan una densidad horizontal de puntos de uno a uno. 
api habla de puntos por pulgada, (N. del T.) 


su m-= 


Orientación vertical (Portrait) versus apaisada (Landscape) 


Tanto los controladores de matrices de puntos como los de laserjet permiten 
la representación de imágenes en apaisado y en vertical. La orientación verti- 
cal representa el eje X de la pantalla a lo ancho de un papel, y el eje Y a lo 
largo del mismo, dando origen a una imagen de media hoja. La orientación 
apaisada relaciona el eje largo del papel con el eje X de la pantalla y el eje Y 
de la pantalla con el eje ancho del papel, produciendo una única imagen de 
pantalla por página. Esta última suele ser la orientación de salida preferida. 

Para cada orientación y modo de pantalla existe un modo de matriz de 
puntos que mejor se aproxima a la imagen de la pantalla, como se muestra en 
la Tabla 14-2, 


Tabla 14-2 Modos matriciales preferidos para gráficos 


Dirección CGA EGA VGA 
Vertical 3/7 1/7 1/7 
Apaisada 0 0 


Para inprimir una pantalla gráfica hay que considerar tres criterios antes de 
seleccionar el modo de impresión. Primero, el número de puntos por pulgada 
(ppp) debe ser lo suficientemente elevado para proyectar los pixels de la 
pantalla dentro de los límites de la página física. Con una resolución de 60 
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ppp (modo 0) en la orientación vertical podría necesitarse una anchura de 
papel superior a las ocho pulgadas. Un valor de 60 ppp podría permitir que 
una impresora de 13 pulgadas de ancho imprimiera 640 pixels en horizontal, 
pero con este valor, una impresora de ocho pulgadas sólo podría imprimir 480 
pixels. 

Segundo, los puntos por pulgada en horizontal y las líneas por pulgada en 
vertical deben estar equilibrados para que la imagen de salida se ajuste lo 
máximo posible a la imagen de la pantalla. Los ppp horizontales pueden 
modificarse, no así los verticales (o no tan fácilmente). 

Tercero, puesto que la imagen se imprime en formato uno a uno (un pi- 
xel/un punto), cuanto más alta sea la densidad de impresión (puntos por pul- 
gada), menor será la imagen resultante. Por ejemplo, el modo 3 imprime una 
imagen de pantalla completa en modo vertical con una anchura de sólo 2,7 
pulgadas (en proporciones muy distorsionadas). 

Los modos que se han mostrado no han sido impuestos por decreto, Le 
sugiero que experimente con su propio equipo, compruebe los distintos modos 
y vea de antemano el grado de aproximación de cada imagen de la pantalla 
con su salida correspondiente. En esta particular aplicación, una imagen vale, 
literalmente, mil palabras. 

Recuerde, cuanto mayor sea el número de puntos por pulgada (ppp), menor 
será la imagen horizontal resultante. En caso de tener necesidad tanto de una 
imagen de bits densa como de una imagen más grande, debería reescribir un 
controlador gráfico (para una matriz de puntos) para lanzar dos (o más) puntos 
de impresora por cada pixel de pantalla. Consulte también la escala de grises, 
que utiliza 16 puntos por pixel (a 300 ppp) para la conversión de los colores 
de una laserjet y compare esta aproximación con el modo 3 de Epson de 
densidad cuádruple (240 ppp). 

Deberá observarse también que, en los modos C0...C3 de CGA (baja reso- 
lución), el modo 0 de impresión funciona perfectamente en la orientación 
vertical. 


Cálculo de los caracteres gráficos matriciales 


Cuando se utiliza una impresora de matriz de puntos para salidas normales 
(alfanuméricas), existe un código de caracteres de 8 bits que selecciona un 
patrón de 9x9 pines entre los juegos de caracteres de la ROM de la impresora. 
En los modos gráficos, sin embargo, sólo se utilizan 8 de estos pines y se 
envía un carácter de 8 bits por cada posición horizontal de la cabeza impre- 
sora, donde cada bit controla uno de los pines activos. 

El carácter gráfico se calculará de forma que la aguja más alta se controle 
con el bit de peso 7 del carácter, y así sucesivamente hasta llegar a la aguja 
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más baja, que se controlará con el bit de peso 0 de éste. En la Figura 14-1 se 
muestran tres ejemplos de cálculo de caracteres gráficos. 


Figura 14-1 Cálculo de agujas individuales 


Mos a 2] El código del carácter gráfico para la cabeza de 
a E impresión de una matriz de puntos se calcula como 
un carácter de 8 bits, con el bit 7 para la aguja 
o mn más alta (valor 128) y el bit 0 para la aguja más 
ln a baja (valor 1). El código del carácter que se envía 
¿OE a es la suma de los valores de las agujas que se 
"no 6 desea: que impriman. 
2 m> Los resultados gráficos se muestran tanto en decimal 
mo 1 como en hexadecimal. 
138 69 34 
o o o 
SAh 45h 22h 


En la matriz de puntos, cada serie de caracteres gráficos imprime ocho 
filas horizontales de puntos; luego se provoca un avance del papel mientras 
la cabeza impresora vuelve sobre la siguiente fila. Por lo tanto, en modo 
vertical, cada línea impresa justifica ocho filas de pixels de la pantalla, y cada 
carácter se genera con ocho pixels verticales (consulte la Figura 14-2). 


Figura 14-2 Cálculo de caracteres de imágenes de bits para 
matrices de puntos. 


En modo VERTICAL, los pixels deberían leerse como 
ocho conjuntos verticales (de izquierda «a derecha), 
por ejemplo, 8Ah, 45h, 22h, 15h, SAh, 45h, 24h y 
15h, trasmitiéndose en este orden. 


En modo APAISADO, los pixels deberían leerse 
como ocho conjuntos horizontales (de arriba abajo), 
por ejemplo, 1lh. 22h, 44h, 88h, 51h, AAh, 5h, 
AÁh, trasmitiéndose en este orden. Recuerde, el bit 
de mayor peso va a la derecha y el de menor peso, 
a la izquierda, 


En modo apaisado, la dirección de impresión y el avance del papel perma 
necen constantes, pero los pixels de la pantalla se examinan en grupos hori- 
zontales de a ocho, con una línea de impresión que comienza en la parte 
superior derecha de la pantalla y se desplaza hacia abajo. Las siguientes líneas 
de impresión comienzan examinando ocho pixels horizontales en la parte su- 
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perior de la pantalla, pero con la posición de seguimiento horizontal despla- 
zada en ocho pixels a la izquierda, mientras que la última línea de impresión 
examina la posición de pantalla que encuentra más a la izquierda (vea la 
Figura 14-3). 


Figura 14-3 Proyección de la pantalla en papel en modo APAISADO 


En el modo apaisado, la primera línea de pixels 
comienza en la parte superior derecha de la pantalla y 
va descendiendo, mientras que la última aparece en el 
lateral izquierdo de la pantalla y se imprime en la 
parte inferior de la imagen del papel. 


Esta rotación hace coincidir el 
eje largo de la pantalla con el 
eje largo del papel, dando una 
apariencia mejorada y permi- 
tiendo la impresión de una 
imagen más amplia. 


Controlador gráfico para matrices de puntos: imprime_grafico 


El archivo de inclusión EP-GRAPH.I contiene una única función muy sencilla 
y manejable llamada imprime_grafico. Antes de llamar a esta función es ne- 
cesario definir dos constantes que especifiquen la orientación deseada para la 
salida, 


fidefine VERTICAL 0 
tidefine APAISADO 1 


Para llamar a imprime_grafico son necesarios dos parámetros: modo y 
direccion. 


void imprime_grafico( int modo, int direccion ) 
1 
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El parámetro modo permite examinar los diferentes modos de una impre- 
sora. Cuando Vd, tenga que elegir un modo gráfico de impresora, este pará- 
metro de llamada podrá sustituirse por las constantes de modo suministradas 
tanto en la opción case VERTICAL como en case APAISADO., 

Además, en caso de desear sólo la opción apaisado o sólo la opción verti- 
cal, el segundo parámetro (direccion) puede sustituirse por las sentencias 
switch y case especificadas para la opción elegida. En caso contrario serán 
necesarias unas cuantas variables locales: 


char m; 

int i, j, k, cociente, resto, 
maxX = getmaxx(), 
maxY = getmaxy(); 


Las dos últimas variables, maxX y maxY podrían duplicar otras declara- 
ciones similares hechas en cualquier parte del programa. Esto no interfiere 
con su carácter local y resultan ser muy necesarias. 


setviewport (0, 0, maxX, maxY, 0); 


Si el programa de llamada tuviera otros valores efectivos o simplemente 
Vd. necesitara otros valores diferentes, éste podría modificarse o eliminarse. 
Si necesitara proyectar un área más pequeña, Vd. mismo podría poner los 
límites de la región de la pantalla deseada. Asegúrese de que las especifica- 
ciones de anchura permiten lo anterior. 

La impresora debería estar en modo gráfico: 


fprintf (stdprn, "Ax1BA%c", 7 ); 


En Turbo C++, stdprn es un archivo predefinido que se corresponde con 
LPT. En caso de necesitar un puerto de salida distinto, cambie esta designa- 
ción de acuerdo a sus necesidades. 

La cadena ix1BAn hace que la impresora seleccione un espacio interlineal 
de "/72. En este caso, el carácter 07h indica 7/72 (un espaciamiento vertical 
de alrededor de 82 ppp). Valores aceptables para n son 0,...,85. A continua- 
ción, se selecciona como orientación de salida la vertical o la apaisada: 


switch (direccion) 
1 

case VERTICAL: 

t 
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El siguiente paso consiste en dar a la impresora una orden del modo grá- 
fico y especificar la anchura de cada línea (cuantos puntos se imprimirán). El 
valor modo se especificó cuando se llamó a imprime_grafico. En la orienta- 
ción VERTICAL, esta anchura podría ser de 640 pixels horizontales sobre la 
pantalla (suponiendo modos de alta resolución). 

Sin embargo, puesto que la impresora Epson sólo puede admitir datos de 
8 bits, la especificación de 640 puntos se reduce a dos argumentos de 8 bits: 
resto y cociente. maxX tendrá un valor de 639, devuelto por getmaxx, por lo 
que el argumento utilizado para calcular resto y cociente se incrementará en 
uno, 


resto = (maxX+1) £ OX00FF; 
cociente = (maxX+1) > 8; 


En la parte superior de la pantalla tiene lugar el comienzo de un bucle. 
Cada bucle imprimirá ocho pixels en vertical. 


for ( j=0; j<=maxY/8; j++) 
1 


Los argumentos modo, resto y cociente se pasan como valores de tipo char 
(enteros de 8 bits sin signo). El argumento W/B* indica que se está seleccio- 
nando un modo gráfico, 


fprint£ (stáprn, "1x1B*%c%c%c", modo, 
resto, cociente); 


Este valor de modo gráfico sólo es válido para una línea. Una vez enviada 
la orden del modo gráfico y la longitud de la línea, los siguientes x octetos de 
datos recibidos (cargados por los argumentos resto, cociente) se interpretarán 
como instrucciones para las agujas gráficas, independientemente de sus con- 
tenidos. Por lo tanto, la orden que define los valores del modo gráfico inicia 
todas y cada una de las líneas de datos gráficos trasmitidas a la impresora. 

Ahora comienza un nuevo bucle en el margen izquierdo de la pantalla y 
evoluciona a través de ésta hasta maxX. 


for ( i=0; i<=maxX; i++) 
t 


El carácter m se pone a NULL (0) al comienzo de cada paso. Luego tiene 
lugar un bucle anidado que avanza desde O hasta 7 para leer ocho pixels de 
pantalla (verticalmente). 
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m= 0; 
for ( k=0; k<8; k++ ) 
1 


A medida que se ejecuta el bucle interno, el carácter m se desplaza a la 
izquierda en un bit. Si el pixel en tratamiento no es O (color negro o color de 
fondo de paleta), entonces m se incrementa (el bit más a la derecha o bit cero 
se carga). A medida que el bucle continúa y m se desplaza a la izquierda, cada 
bit avanza, mientras otro bit nulo se convierte en el bit de menor peso. 


m <<= 1; 
if ( getpixel (1, J]*8+k)) m++; 


Una vez terminado el bucle anidado, el carácter resultante se lanza a la 
impresora. á 


fprintf (stdprn, "Yec",m); 


Una vez terminada la línea, se envían los códigos CR/LF a la impresora 
para hacer avanzar la cabeza de impresión al comienzo de la nueva línea. 


fprintf (stdprn, "Ax0DAx0A"); 
H 


Este proceso continúa hasta que se haya leído la pantalla completa de ocho 
en ocho pixels (y transferido a la impresora en forma de caracteres gráficos). 

En el modo apaisado, el proceso es el mismo, con la diferencia de que la 
longitud de la cadena gráfica se calcula con maxY en vez de hacerse con 
maxX; además, la imagen de la pantalla se lee desde la parte superior derecha 
hacia la izquierda en sentido descendente, a razón de ocho pixels horizontales 
por octeto. 


case APAISADO: 


1 
resto = maxY £ Ox00FF; 


cociente = maxY >>8; 
for (j=0; j<maxX; j+=8) 
1 
fprintf ( stdprn, "Ax1B*%c%c%c", 
modo, resto, cociente); 
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A diferencia del modo vertical, aquí la imagen de la pantalla se lee desde 
la parte inferior de ésta hacia ar 


for( i = maxY; i >= 0; i--) 


de 
m= 0; 
for( k = 0; k< 8; k++) 
1 
m <<=1; 
if (getpixel( j+k, i ) ) m++; 
) 
fprint£( stdprn, "%c", m ); 
) 


fprintf( stdprn, "AxODAXx0A" ); 
Md 


Por último, una vez trasmitida toda la imagen a la impresora, se enviará un 
salto de página para provocar un avance del papel, 


£print£( stdpen, "NE" ); 


Esto completa el proceso de transmisión de la imagen. Sencillo. 


Utilización de la impresora laserjet 


El volcado de una pantalla gráfica a una impresora laserjet no es más difícil 
que una impresión sobre una matricial de puntos, si bien existen diferencias 
tanto en las posibilidades de la laserjet como en la forma en que ésta debe ser 
tratada. 

Primero, la laserjet es capaz de imprimir una imagen de puntos más fina 
que una impresora de matriz de puntos (hasta 300 ppp), aunque la mayor parte 
de las laserjet admiten cuatro resoluciones de puntos distintas: 75 ppp, 100 
ppp, 150 ppp y 300 ppp. A 75 ppp. los puntos de las imágenes son 16 veces 
más grandes (4x4) que los generados a 300 ppp y, por supuesto, la página sólo 
puede recibir 1/16 de la información. De la misma manera, las resoluciones 
de 100 ppp y 150 ppp generan unos tamaños de puntos que son submúltiplos 
de 300 ppp. 

Segundo, la resolución utilizada no afecta a la velocidad de salida. El 
tiempo necesario para generar una salida gráfica depende sólo de la cantidad 
de información en bits enviada a la impresora (tiempo de transmisión) y no 
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de los parámetros de resolución utilizados por ésta para proyectar la informa- 
ción sobre la página. La misma imagen generada a 300 ppp y a 75 ppp 
necesitará el mismo tiempo de salida, 

Tercero, la resolución seleccionada no afecta directamente al espaciamien- 
to (relativo al eje x/y). Mientras que el espaciamiento del eje x depende de la 
resolución de puntos, el espaciamiento de las líneas del eje y depende direc- 
tamente del control del programa. Los factores de aspecto pueden ajustarse 
durante la salida con resultados excelentes y, si se desea, pueden introducirse 
distorsiones adrede. 

En resumen, dado que una laserjet trabaja con menos restricciones mecá- 
nicas que una matriz de puntos, la salida tendrá una resolución mucho mayor 
y una reproducción más fiel de la imagen original de la pantalla. 

Debido a esta cuestión de restricción mecánica, la laserjet se controla de 
forma diferente a una matriz de puntos, existiendo dos diferencias principales 
en la operatoria. Primera, cada fila (o columna) de pixels de pantalla se pro- 
yecta, una a una, sobre la salida hacia la laserjet. En modo vertical, en lugar 
de leer grupos sucesivos de ocho pixels verticales, como se hizo con la matriz 
de puntos, la imagen de la pantalla se lee por filas, transmitiendo cada grupo 
sucesivo de ocho pixels como un carácter gráfico y creando una fila de puntos 
icos sobre la página cada 80 caracteres. Una vez seleccionada la resolu- 
ción ppp, ésta calcula el espaciamiento horizontal entre los puntos. 

Segunda, dado que físicamente no hay ninguna cabeza de impresión invo- 
lucrada, cada una de las de las cadenas gráficas de salida deberá ir precedida 
de un protocolo de instrucciones para posicionar la imagen de puntos sobre la 
página. Sin embargo, como se ha dicho antes, éste es precisamente el elemen- 
to que hace posible que la imagen de salida coincida fielmente con la imagen 
de la pantalla. 


La utilidad de laserjet para la impresión de la pantalla 


Las funciones de utilidad de LJ-GRAPH.I proporcionan tres modos para la 
transferencia de una imagen de la pantalla al papel: apaisado, vertical y escala 
de grises. Los dos primeros modos, apaisado y vertical, proporcionan una 
salida monocromo muy rápida en las resoluciones de 75 y 100 ppp. El tercer 
modo, escala de grises, convierte los colores de la pantalla en cuatro (CGA 
baja resolución) ó 16 (EGA/VGA) sombras de grises (consulte la Tabla 14-3). 

Como puede ver, el modo escala de grises necesita bastante tiempo (algo 
más de seis minutos) para lanzar unos 600.000 octetos de información de 
descripción de una pantalla en color. La imagen producida tiene la misma 
resolución efectiva y el mismo tamaño que en el modo apaisado, si bien cada 
pixel se ve proyectado sobre una imagen de puntos grises de 16 bits (4x4). 
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La práctica y las opciones de esta escala de grises se discutirán más adelante 
en este mismo capítulo (vea Paletas de Dieciséis grises y Cuatro Tonos). 

La misma pantalla, tanto en modo apaisado como en vertical, necesita algo 
más de un minuto. Estos tiempos pueden variar en función de la velocidad de 
la CPU y de otras posibilidades de la máquina, aunque los valores dados 
arriba definen una forma general en cuanto a las necesidades de tiempo. Exis- 
ten otras tres consideraciones que deben ser recordadas. 

Primera, si Vd. no dispone de una laserjet en estos momentos, el volcado 
de la pantalla podrá hacerlo sobre un archivo de disco; posteriormente podrá 
enviar la información desde el disco a una laserjet mediante la orden Print de 
DOS. 

Segunda, se pueden hacer varias copias de una imagen de la pantalla sin 
necesidad de incrementar los tiempos de transmisión. Basta con incorporar 
una orden de copia múltiple a la imagen de salida. Esto se discutirá más 
adelante en este mismo capítulo. 

Tercera, no intente utilizar el modo escala de grises con gráficos monocro- 
mo CGA. Simplemente no funciona; el resultado será una imagen muy tenue. 
El modo apaisado reproducirá los resultados de una manera más satisfactoria 
en 1/6 del tiempo, aproximadamente. 


Tabla 14-3 Modos de volcado de la pantalla gráfica en laserjet 


Modo Datos aproximados Resolución Tiempo 

APAISADO 50.000 bytes 75 dp =1 minuto 
VERTICAL 40,000 bytes 100 dpi =1 minuto 
ESCALA DE GRISES 600.000 bytes 300 dpi =6 minutos 


Códigos de instrucción de laserjet 


La Tabla 14-4 nos enseña una serie de muestra de las instrucciones de salida 
gráfica de laserjet. donde cada secuencia de órdenes aparece en una línea 
distinta con sus complementos. En la práctica actual, las secuencias de órde- 
nes no se separan con ninguna orden del tipo CR/LF, a no ser que se desee 
que aparezcan como órdenes de puntos gráficos. 

Cada secuencia de órdenes comienza con el carácter Escape (1B) seguido 
de una serie de caracteres ASCII que definen la propia orden y de una serie 
de parámetros incluídos en la misma. Por ejemplo, la secuencia 1B*t300R 
carga la resolución 300 ppp, enviando el parámetro 300 en forma de secuencia 
ASCII y nunca en forma de código o secuencia de valores, como se hizo con 
los códigos de las matrices de puntos. 
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Tabla 14-4 Un ejemplo de instrucciones de salida de laserjet 


IgE reinicio. 

IBS£ITH selección del alimentador de papel de la bandeja. 

188100 reinicio de la posición del cursor de la impresora al valor 0. 
Iy*pOX posición del cursor 0 puntos horizontal. 

Ig*p0Y posición del cursor O puntos vertical, 

1g*t300R resolución de 300 ppp. 

Igsta1228.8h1180.8V — posición del cursor, decipuntos vertical y horizontal. 

Ig*rlA comienzo del gráfico en la posición del cursor. 


18*b23W OF FF FF FE FF EF FF EF IRF ER RE EF EE FE PR FE El 
transferencia de 23 octetos de datos gráficos. 


FF FF FF F8 


Ip*rB fin del registro. 
Ip4a1228.8h1183.2V posición del cursor, decipuntos vertical y horizontal. 


Iria comienzo del grál 
1 *b23W 01 FO 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 80 
transferencia de 23 octetos de datos gráficos. 


co en la posición del cursor. 


Ip*rB fin del registro. 


(continuan las instrucciones gráficas) 


Ig*rB 00 fin del gráfico + salto de página (OCH). 

IB4 100 reinicio de la posición del cursor de la impresora al 
valor O (omisión). 

IBn(sU conjunto primario de símbolos Roman-8 (omisión). 

In(sOp10h12vsb3T reponer los valores de la fuente primaria (omisión). 

Ig811H elección del alimentador de papel de la bandeja. 


(fin de las instrucciones de la: impresora) 


Las instrucciones de posicionamiento decipunto 


La laserjet admite tres modos de posición del cursor de la impresora: fila, 
punto y decipunto. En la aplicación sólo se utilizará el sistema coordenado 
decipunto. 

Como primera medida, veamos una pequeña explicación de fondo. Los 
impresores han utilizado un sistema de cíceros (pica en Estados Unidos y 
algunos países hispanoamericanos) y puntos para medir los tamaños de los 


caracteres, a razón de 6 cíceros por pulgada y 12 puntos por pica. Hay 72 
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puntos por pulgada, a lo que el estándar de impresoras matriciales añade un 
incremento de 1/2 de pulgada para el espaciamiento. 

Pero la laserjet utiliza un tamaño de puntos de 1/300 de pulgada, haciendo 
necesario un incremento posicional más fino que el mero tamaño de un punto. 
El sistema de coordenadas de la laserjet proporciona este espaciamiento en 
pasos de 1/300 pulgadas. 

Las coordenadas decipunto proporcionan, sin embargo, un grado de posi- 
cionamiento incluso más fino. Una decipunto se define como 1/10 de un punto 
6 1/720 de pulgada y, para conseguir una precisión de un grado más, las 
medidas decipunto también permiten una fracción decimal (como 1234,5 de- 
cipuntos) hasta una precisión de 1/7200 de pulgada. 

El decipunto.decimal es el sistema de coordenadas de posición que se 
utiliza para controlar las posiciones de impresión de los gráficos. Este sistema 
de posicionamiento debería ser suficiente hasta para el programador más exi- 
gente. A 

Un elemento más de información: la coordenada 0.0 está aproximadamente 
a 1/2 de pulgada por debajo de la parte alta de la página y a 1/2 de pulgada 
de la izquierda. Todas las medidas decipunto se toman desde esta posición 
coordenada. 

Bajo la resolución 300 ppp, los puntos tienen un diámetro nominal de 
0.0033... pulgadas. La conversión de estas medidas a decipunto proporciona 
un incremento básico vertical de 2.4 decipuntos. A 150 ppp, este incremento 
debería ser el doble, o sea, 4.8; a 100 ppp, debería ser de 7.2 y a 75 ppp, el 
incremento vertical es de 9.6 decipuntos. 

Estos incrementos básicos en la línea de la impresora se ajustan de acuerdo 
a los factores de aspecto de los pixels de la pantalla, con objeto de asegurar 
que las proporciones de la imagen finalmente impresa coincidan con las de la 
pantalla. 

Debe observarse también que la orden para posicionar el cursor de la 
impresora consta de un protocolo seguido de dos valores: las coordenadas x e 
y. Dado que el carácter h, que identifica lo anterior como una coordenada de 
posición decipunto horizontal está en minúscula, el protocolo de la instrucción 
no tiene por qué repetirse. La segunda coordenada finaliza con la V mayús- 
cula para indicar que la secuencia de órdenes ha finalizado. 

Se observa que la penúltima secuencia de órdenes de la Figura 14-4 co- 
mienza con un protocolo muy sencillo, /p(s), seguido de una serie de valores 
e instrucciones en minúsculas, y como cierre, el indicador de la instrucción 
final en mayúsculas. Este formato se utiliza generalmente cuando hay que 
enviar varias órdenes con el mismo protocolo. 

Si desea más información sobre las secuencias de control de la impresora 
Laserjet podrá encontrarla en Laserjet Series II Printer User's Manual, Apén- 
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dice A, o bien en Laserjet Series II Printer Technical Reference Manual, 
ambos de Hewlett-Packard, 


Escritura de caracteres gráficos en la laserjet 


Antes de trasmitir los datos gráficos a la impresora debe procederse a situar 
el cursor utilizando las unidades decipunto en las coordenadas horizontal y 
vertical, La secuencia 'y*r/A confirma posteriormente que la salida gráfica 
va a tener lugar en la posición del cursor, 

La siguiente secuencia de órdenes, 'y*b4HW, indica a la impresora que 
debe tratar los caracteres HH como caracteres gráficos. Al igual que la reso- 
lución de 300 ppp se envió en modo de texto en lugar de utilizar caracteres 
codificados (como se hizo con la matriz de puntos), el número de caracteres 
también se trasmitirá en modo de texto ASCII Esto es, si a continuación 
vinieran 80 caracteres gráficos, entonces los marcadores ¿HH leerían un ASCII 
"80" en lugar del carácter "P”, que podría haber sido utilizado con la impre- 
sora de matriz de puntos. Consulte la Figura 14-4 para ver los ejemplos. 

Como antes, la información se trasmite en forma de caracteres de 8 bits . 
Para la Laserjet, estas imágenes de bits se calculan de la misma forma que las 
imágenes de matrices de puntos, excepto en lo que respecta a la dirección y 
el orden de los pixels de la pantalla leídos para cada modo (consulte la Figura 
14-5). 

La orden trasmitida sobre los datos gráficos establecía explícitamente el 
número de octetos (caracteres) de datos gráficos que deberían ser enviados. 
Una vez completa la transferencia de éstos se procede a enviar una cadena 
que contiene una orden de fin de gráficos. Esto parece redundante, pero es 
seguro y añade cierta consistencia a los datos trasmitidos. 

Una vez enviados todos los datos gráficos, la orden de fin gráfico irá 
seguida del carácter OCh, el carácter estándar de nueva página, para que la 
laserjet avance una página. 

Las cuatro secuencias de código que vienen a continuación del carácter de 
nueva página tan sólo sirven para reactivar la laserjet con sus valores por 
omisión. 


Paletas de 16 colores y 4 tonos en la escala de grises 


Junto a los modos de proyección directa (apaisado y vertical), el modo escala 
de grises proyecta cada pixel de la pantalla sobre un punto gris de 4x4 en la 
salida. El valor gris viene determinado por el número de orden que, en la 
paleta, le corresponde al valor del pixel de la pantalla. Esto no es una autén- 
tica conversión a escala de grises, sino una proyección arbitraria que propor- 
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ciona 16 grises para pantallas de color EGA/VGA y cuatro grises para panta- 
llas de color CGA de baja resolución. 

Esta conversión a la escala de grises se lleya a cabo definiendo una reso- 
lución de salida de 300 ppp. examinando cada pixel de la pantalla cuatro 
veces y lanzando al exterior 16 puntos (cuatro por línea sobre cuatro líneas) 
por cada pixel de pantalla. La imagen impresa resultante tiene el mismo ta- 
maño y aspecto que la creada en modo apaisado, con la diferencia de que los 
colores de la pantalla se han convertido en sombras de color gris. Este parti- 
cular método de graduación del gris tiene algunos defectos. 

Primero, puesto que ésta es una proyección arbitraria del gris, los colores 
más oscuros se asignan a los grises más luminosos y el color WHITE se 
imprime como un negro sólido. El resultado de la paleta de grises para 
LIGHTGREY tiene mal arreglo, siendo un punto más luminoso que el resul- 
tado asignado a DARKGREY (asumiendo la paleta de colores EGA/VGA por 
omisión). Este paso de la luz a la oscuridad ha sido elegido de forma arbitraria 
como normal, puesto que deja el fondo de la pantalla impreso en blanco. 


Figura 14-4 Cálculo de los caracteres (imágenes de bits para la laserjet) 


MIJO En modo VERTICAL, los ocho juegos de. pixels 

Cm) Ema horizontales deberían leerse como 88h, 44h, 22h, 
= 11h, SAh, 55h, AAh y S5h. Al igual que sucede 

mal ea con las matrices de puntos, cada conjunto de 

C2IOB00C0m ocho pixels se trasmite como un único carácter 

Mo CAIBA| gráfico, que ocupa una línea distinta. 

e N_N 

N_N 

A UN 


En modo APAISADO, los pixels deberían leerse en forma de ocho grupos 
verticales, como 15h, 2Ah, 45h, Ah, 15h, 22h, 45h y 8Ah. De nuevo, cada 
grupo de ocho pixels se trasmite como un único carácter gráfico y cada uno 
de los grupos que aquí se muestran deberían trasmitirse hacia una línea 
distinta 


Se incorpora una opción que permite invertir los resultados de la escala de 
grises, de tal forma que el fondo se imprima en negro y el color WHITE se 
represente en blanco sobre el papel. Esta inversión, sin embargo, no corregirá 
en lo más mínimo la diferencia entre los tonos de grises asignados a los 
valores LIGHTGREY y DARKGREY de la paleta. 

Segundo. si se asignan nuevos colores a la paleta EGA/VGA, los valores 
de la escala de grises no van a cambiar para dar cabida a estos. Si se asigna 
el elemento de color número dos de la paleta al verde brillante, su conversión 
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a la escala de grises se hará de acuerdo con su número de elemento dentro de 
la paleta y no de acuerdo con el valor del color asignado. 

Tercero, las sombras de gris adyacentes puede que tengan una apariencia 
muy similar, dependiendo del dispositivo de salida y del estado del cartucho 
de tinta (toner) utilizado. 

Estas son, sin embargo, las mejores aproximaciones a las 16 posibles som- 
bras de gris para crear una pantalla gráfica de 640x350 (o más grande), siem- 
pre dentro de las limitaciones de la laserjet y de los requisitos de proyección 
de los pixels. 

La Figura 14-5 muestra los mapas de bits del gris asignados a cada posi- 
ción de la paleta. 


Patrones de bits de la paleta escala de grises de 16 niveles 


Figura 14-5 


Elemento de paleta = 0000(0) 0001 (1) 00102) 00113) 
lei DO aJol 0015 ¿(DODO Lea 0 
Patrones de bits de 20 DOMO ma Mimi) Línea 1 
la escala de grises hi . pi > 
dd ncas ÓN ¡a le jus e! DO Línea 2 
(4 líneas de pixels) aaa! DOM mM] Línea 3 
Elemento de paleta = 0100(4) 01015) 0110(6) 0111) 
ae DAN 1] AN AN MN] MOM Línea O 
Fene se E E DOMO MODO MOMO) Línea! 
cad de al n CIC AE EN 7770 
(4 líneas de pixels) SEO OA Mi] Línea 3 
Elemento de paleta = 1000(8) 10019) 1010010) ¿01100 
4 [ Ja Ia JN MOMO MB Línea O 
O Ca HUM Mmmm Lc / 
a dones Es gr e — m- MOMO momo Línea 2 
(4 líneas de pixels) ma AMA MMM Línea 3 
Elemento de paleta = 1100(12) 1101(13) PILAS) 
A MANO 24 anAnn MMMM línea 0 
A ES bits de Mmmm Línea / 
li: escala: de. grises MMMM lea? 
(4 líneas de pixels) MM Línea 3 
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LJ-GRAPH.I 


El archivo de inclusión LJ-GRAPH.I contiene las funciones de control del 
dispositivo gráfico Laserjet. Comienza con la declaración de tres constantes y 
una variable global. 


define VERTICAL 0 
fidefine APAISADO hs 
tidefine ESCALAGRISES 2 
int Negativo; 


Las constantes VERTICAL, APAISADO y ESCALAGRISES permiten se- 
leccionar el modo adecuado para llamar a la función lj_grafico. La variable 
Negativo se utiliza como indicador de la función escala_grises para seleccio- 
nar la proyección normal o invertida de la escala de grises. 

La función lj_grafico se invoca con un único argumento, modo, para selec- 
cionar la resolución y la orientación de salida vertical, apaisada y escala de 
grises. Puede que el programa que vd. desarrolle no incorpore los límites de 
pantalla x e y ni el factor de aspecto, por lo que estos valores se declaran 
como variables locales, junto a los valores en doble precisión xtexto, ytexto y 
saltotexto, y variables de tipo carácter m y resolucion. 


woiá 1j_grafico (int modo) 
t 
int i, Jj, k, p. q. Xxasp, yasp. 
maxX = getmaxx() + 1, 
maxY = getmaxY() + 1; 
double xtexto, ytexto, saltotexto, FactAsp; 
char m, resolucion[3]; 


También se definen dos cadenas de caracteres, inicio_graf y fin_graf. 


Figura 14-6 Patrones de bits de la paleta escala de grises de 4 niveles 


, DEJO MIOM OBBO nea 0 
a e bits de OE Aa 2... Línea 1 
a: a 12 2... Línea 2 
pencas de pie! ESO ao amo Línea 3 
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El argumento W/B es el carácter Escape (en formato hexadecimal), pero si 
Vd. dispone del disco que contiene las versiones de estos programas, obser- 
vará que el carácter Escape aparece en la pantalla con la forma del carácter [ 
(Ctrl-[) en baja intensidad. El carácter Escape (al igual que cualquier carácter 
de control) puede introducirse directamente seleccionando la opción Control- 
Prefix del editor de Turbo C++ (normalmente Alt-P) y luego pulsando la 
tecla |. 


static char inicio _graf[] = 
"ANx1BEx1B811H1x1B81001x1B*p0XAx1B*pOYAx1B*t"; 
static char fin _gra£f[] = "AxlB*rB"; 


La cadena de caracteres inicio_graf se descompone en varias Órdenes, co- 
mo muestra la Figura 14-4. La posición final de la cadena, /B*r, es el proto- 
colo de la orden de activación de la resolución, que se completará antes de 
trasmitir la secuencia. 

A continuación, la función lj_grafico examina el factor de aspecto y luego 
restituye los valores de la ventana gráfica para convertirla en pantalla com- 
pleta. 


getaspectratio(£$xasp, £yasp); 
FactAsp = (double) xasp / (double) yasp; 
setviewport (0, 0, maxX, maxY, 0); 


La orden switch utiliza el argumento modo para seleccionar la operación 
de salida deseada. 


switch (modo) 
[ case VERTICAL: 
t 


En modo Vertical, las coordenadas de salida x/y se activan con valores 
decipunto iniciales: 


xtexto 
ytexto 


690.0; 
500.0; 


La secuencia 100 se copia sobre la variable de cadena resolucion. Por 
último, la cadena completa de iniciación se envía a la impresora. 


strcpy (resolucion, "100"); 
fprintf (stáprn, "%s%sR", inicio graf, resolucion); 
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Estas dos órdenes pueden reescribirse en una sola si se desea: 
fprintf(stdprn, "%s100R", inicio graf); 

Esta orden también podría haberse escrito de la forma: 
fprint (stdprn, "%s%3dR", inicio graf, 100); 


En la siguiente línea, el factor de aspecto de la impresora se compensa con 
el de la pantalla, y el resultado se carga sobre la variable saltotexto, 


saltotexto = 7.2 / FactAsp; 


Hasta ahora, todo ha sido iniciación y puesta a punto de la impresora y de 
los valores utilizados en la ejecución de los bucles gráficos. Ahora llega el 
momento de leer la pantalla de vídeo y lanzar la información de salida hacia 
la impresora. 

Debido a que estamos tratando en modo vertical, el bucle comienza en la 
parte superior de la pantalla, envía una orden de posicionamiento del cursor 
de la impresora y luego incrementa la coordenada ytexto con el valor conte- 
nido en saltotexto. 


for (j=0; j<=maxY; j++) 
1 
£printf (stáprn, "Ax1Bsa%-*.1fh%-*.1£v", 
prepara (xtexto), xtexto, 
prepara (ytexto), ytexto; 
ytexto += saltotexto; 


Observe que se utilizan dos parámetros para la coordenada x y dos para la 
coordenada y. El parámetro suministrado por prepara (xtexto) es una senten- 
cia de anchura que especifica el número de plazas que se crearán en la cadena 
numérica %-*.1f. C es conocido por la formatización de números en coma 
flotante en cadenas de conversión. Tanto los espacios que preceden como los 
que siguen a la orden podrían confundir a la Laserjet, por lo que la función 
prepara se ha diseñado para devolver un valor entero, definiendo así el for- 
mato de la cadena de tal forma que queden excluídos los blancos antes men- 
cionados. 

A continuación se envían órdenes para dar comienzo a los gráficos en la 
posición del cursor de la impresora y para especificar el número de caracteres 
gráficos que seguirán, Felizmente, C no se caracteriza por añadir espacios 
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extra a los enteros formatizados, por lo que no hace falta ningún parámetro 
de anchura. 


fprintf (stdprn, "Ax1B*riA1x1B*b%dW", maxX/8); 


Ahora la impresora espera una cadena de maxX/8 caracteres gráficos y dos 
bucles, el primero desde O hasta maxX/8S y el segundo desde O hasta 7; en su 
interior se lee una serie de pixels de pantalla, se crea un carácter gráfico (que 
se corresponde con 8 pixels) y se envia el carácter final a la impresora. 


for (i=0; i<maxX/8; i++) 


t 
m=0; 
for (k=0; k<8; k++) 
t 
m <<= 1; 
if(getpixel(1*8+k, 3)) m++; 
J 
fprint (stdprn, "%c", m); 


Una vez completos estos dos bucles y proyectada la actual fila de pixels 
sobre la impresora, se envía la cadena fin_graf y el bucle continúa procesando 
la siguiente fila de pixels. 


fprintf (stdprn, "%s", fin graf); 
J 
) break; 


En el modo apaisado, la puesta a punto inicial es muy parecida, con la 
diferencia de que la resolución seleccionada es de 75 ppp por lo que resulta 
necesario un ajuste en el espaciamiento entre la líneas de la impresora. 


case APAISADO: 
Ñ 
xtexto = 1000.05 
ytexto = 1000.0; 
strcpy (resolucion, "75"); 
saltotexto = 9.6 * FactAsp; 
fprintf (stdprn, "%s%sR", inicio graf, resolucion); 


El bucle principal. sin embargo, avanza sobre la pantalla de izquierda a 
derecha. Las cadenas gráficas se generarán leyendo una columna de pixels, en 
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vez de una fila. Puede que maxY no sea un múltiplo par de 8 (EGA admite 
una resolución vertical de 350 pixels), por lo que se utilizará maxY+4 para 
indicar el número de caracteres gráficos que serán enviados. Por otra parte, 
puede que algunas de las filas de la parte inferior de la pantalla no tengan 
proyección sobre la impresora. 


for (j=0; j<maxX; j++) 
t 
fprintf (stdprn, "1x1Bsa%-*.1fh%-*.1fv", 
prepara (xtexto), xtexto, 
prepara (ytexto), ytexto); 
ytexto += saltotexto; 
fprintf (stdprn, "Ax1B*r1A1x1B*b%dW", 
(int) (maxY+4) / 8); 


El bucle de lectura de los pixels de la pantalla, sin embargo, no necesita 
sumarle nada a la Variable maxY, la especificación <= es suficiente para ase- 
gurar que será leída la totalidad de la pantalla. Ahora, el bucle se ejecuta como 
se ha indicado previamente, difiriendo en que aquí las posiciones horizontales 
se leen en maxX-j, donde j es el control del bucle, y varía entre O y maxX. 
Esta inversión es necesaria; en caso contrario, el resultado sería una imagen 
especular de la pantalla. 


for (i=0; i<=maxY/8; i++) 
1 


m=0; 
for (k=0; k<8; k++) 
t 
m<<=1; 
if (getpixel(maxX-], 1*8+k)) m++; 
) 
fprintf (stdprn, "%c", m); 
J 
£print(stáprn, "%s", fin graf); 
) 
) break; 


El tercer modo es el modo escala de grises. Su forma de operar es casi la 
misma que la utilizada por el modo apaisado, difiriendo en que este último 
utiliza una resolución de 300 ppp y que cada pixel de la pantalla se proyecta 
sobre una imagen de 4x4 en la escala de grises. 


case ESCALAGRISES: 
t 
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xtexto = 1000.0; 

ytexto = 1000.0; 

strcpy( resolucion, "300" ); 

saltotexto = 2.4 * FactAsp; 

fprintf£( stdprn, "%s%sR", inicio graf, resolucion ); 


La proyección de la escala de grises se lleva a cabo por medio de un bucle 
que lee cuatro veces cada pixel de la pantalla sobre cuatro líneas de impresión 
distintas. 


for( j=0; j<=maxX; j++ ) 
for( p=0; p<4; p++ ) 
É 


fprint£( stdprn, "AxlBsa%-*.1fh%-*.1£v", 
prepara( xtexto ), xtexto, 
prepara( ytexto ), ytexto ); 
ytextó += saltotexto; 


Dado que sólo se leen dos pixels de pantalla por cada carácter gráfico 
lanzado a la impresora, la longitud de la cadena gráfica se especifica como 
maxY/2 en vez de (maxY+4)/8. 


fprintf£( stdprn, "Ax1B*r1Ax1B*b%dW", maxY/2 ); 
for( i=0; i<=maxY/2; i++ ) 
t 

m= 0; 


La variable k se repite desde O hasta / mientras m se desplaza en cuatro 
posiciones hacia la izquierda y sufre un OR con el valor entero devuelto por 


la función escala_grises que manipula el pixel actual, 


for( k=0; k<=1; k++ ) 


t 
m <<= 4; 
m |= escala_grises( p, 
getpixel( maxX-j], i*2+k ) ); 
5 
fprintf£( stdprn, "%c", m ); 
) 
fprint£( stdprn, "%s", fin graf ); 
y 
) break 


3 /* fin de switch */ 
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El control final, tras haber enviado una orden de nueva página y restituído 
en la impresora su estado por omisión, queda en reserva hasta la finalización 
de la sentencia switch, en vez de duplicar este conjunto de instrucciones para 
cada uno de los tres modos. 


fprintf£( stdprn, 
"NxO0CAx1B8£101x1B(8UAx1B(sp10h12vsb3TAx1B811H"); 


Selección de copias múltiples durante la salida 


Se ha incorporado una opción muy interesante a la utilidad lj_grafico: la 
posibilidad de imprimir múltiples copias de una imagen de la pantalla. Esta 
opción puede resultar elemental a primera vista, Antes de enviar el último 
grupo de órdenes (con la secuencia que comienza por 1x0C) basta con incluir 
la siguiente línea: 


fprintf£f(stdprn, "Ax1B£*1%dX", NumeroCopias); 


El argumento NumeroCopias puede ser cualquier valor contenido entre 1 
y 99; la laserjet imprimirá la cantidad indicada de una sóla descarga. 


La función prepara 


La función prepara() admite un valor en doble precisión y devuelve un valor 
entero, donde se especifica el número de posiciones enteras de una cadena 
numérica. La variable entera anchura comienza con el valor 6 y varía en 
función de los valores dados en forma de cuatro posiciones enteras, un carác- 
ter decimal y una posición a continuación del punto decimal. 

Si el valor de posición es menor que 1000, anchura se decrementa; poste- 
riormente vuelve a examinarse el valor de posicion sobre los valores 100 y 
10, El valor final de anchura será devuelto a la función de llamada. 


int prepara( double posicion ) 

t 
int anchura = 6; 
if( posicion < 1000.0 ) anchura--; 
if( posicion < 100.0 ) anchura- 
if( posicion < 10.0 ) anchura- 
return( anchura ); 
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La función escala_grises 


Esta función se llama con dos parámetros: linea, que indica cuál de las cuatro 
líneas se creará para el pixel actual, y paleta, que indica el número de orden 
en la paleta que le corresponde al color del pixel actual de la pantalla. 


int escala _grises( int linea, int paleta ) 


t 


La variable local gris recibe inicialmente el valor O. Una vez haya termi- 
nado la función escala_grises, el valor gris será devuelto a la función de 
llamada. 


int gris = 0; 


A continuación -se presenta un desarrollo para una escala de grises de paso 
cuatro en conjunción con el uso de modos CGA color de baja resolución. La 
variable paleta sólo puede tener un valor comprendido entre 0 y 3 para los 
modos CGA, por lo que sólo hace falta realizar dos exámenes por cada linea 
y, si el resultado de la operación AND entre paleta y el valor sujeto a examen 
es un valor booleano cierto, la variable gris sufrirá un OR con el valor ade- 
cuado del mapa de bits. 

Observe que los valores operados en OR con gris en cada sentencia case 
totalizan 15, Si los dos exámenes de cada sentencia case son ciertos, el valor 
devuelto en gris tendrá todos los bits activos y el valor impreso será un 
cuadrado negro. Si sólo uno de los exámenes devuelve el valor cierto, el valor 
devuelto s uno de los dos valores de sombra del gris; si ninguno de ellos 
devuelve el valor cierto, el valor impreso de cada pixel examinado será un 
cuadrado blanco. 


if( ControladorGrafico == CGA ££ ModoGrafico != CGAHI ) 


( 
switch( linea ) 
y 
case 0: ( if( paleta £ 1 ) gris | 9; 
if( paleta £ 2 ) gris l= 6; ) 
break; 
case 1: [ if( paleta £ 1 ) gris |= 4; 
if( paleta £ 2 ) gris |= 11; ) 
break; 
case 2: [ if( paleta € 1 ) gris |= 2; 
if( paleta £ 2 ) gris |= 13; ) 


break; 
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case 3: í if( paleta £ 1 ) gris |= 
if( paleta £ 2 ) gris |= 
break; 


Si ControladorGrafico es distinto de CGA, entonces se crea la escala de 
grises de 16 sombras. De nuevo, observe que la suma de los valores en cada 
examen, excepto en el caso 3, es 15, Puesto que las 16 sombras siempre dejan 
un punto del patrón de la escala de grises sin utilizar, la sentencia case 3 
omite el valor 8, totalizando un 7 (bits 4, 2 y 1). 

En cada examen, sólo se utiliza un bit de paleta. Si vuelve a mirar la 
Figura 14-5, observará que las paletas de las escalas de grises para 1, 2, 4 y 
8 son los patrones de los puntos críticos utilizados aquí; todos los demás 
patrones de puntos son combinaciones de estos cuatro y permiten a un árbol 
de decisión sencillo generar 16 patrones progresivos de puntos. 


else 
£ switch( linea ) 
t 
case 0: ( if( paleta £ 4 ) gris |= ; 
if( paleta £ 8 ) gris |= 10; ) 
break; 
case 1: [ if( paleta £ 1 ) gris 2; 
if( paleta £ 2 ) gris 8; 
if( paleta £ 8 ) gris 5; ) 
break; 
case 2: [ ¿if( paleta £ 4 ) gris |= ; 
if( paleta £ 8 ) gris |= 10; ) 
break; 
case 3: [ if( paleta £ 2 ) gris |= 2; 
if( paleta £ 8 ) gris l= 5; ) 
break; 
ud: 


A continuación, si la variable Negativo está activa, el patrón de bits guar- 
dados en gris operará en XOR con OFh, con el fin de invertir los resultados, 
Esto cambia la escala de grises por omisión, que comienza con el patrón más 
luminoso para un valor O de la paleta y continúa con la devolución del patrón 
más oscuro para un valor 15 de aquélla, por una escala de grises que devuelve 
un patrón de escala oscuro para los colores bajos de la paleta y un patrón de 
escala blanco para el valor WHITE (valor 15 de la paleta). 


if( Negativo ) gris *= 0x0F; 
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Por último se devuelve el valor de gris a la función de llamada. 


return( gris ); 


La función pausa_presentacion 


La función pausa_presentacion es una utilidad muy sencilla que permite es- 
cribir una impronta sobre la pantalla y esperar la respuesta de una tecla para 
seleccionar uno de los tres modos de salida admitidos por lj_grafico. 


void pausa_presentacion( int invierte ) 


( 
char tecla; 
int terminar = 0; 
if( invierte ) Negativo = 1; else Negativo = 0; 
while( !terminar ) 
£ 
linea aviso( "Introduzca <V>ertical, <A>paisado, 
<E>scala grises -- u otra tecla para salir"); 
while( kbhit() ) getch(); 
tecla = getch(); 
switch( toupper(tecla) ) 
1 
case 'V' : l1j_grafico( VERTICAL ); break; 
case 'A' : lj_grafico( APAISADO ); break; 
cage 'E! : 1lj_grafico( ESCALAGRISES ); break; 
default  : terminar++; 
y 
J 
d: 


Si Vd. desease usar esta utilidad de impronta en otra aplicación, podría 
utilizar distintos enfoques para no reescribir la pantalla vigente. 

Un método consistiría en utilizar la función getimage con objeto de guar- 
dar el área de pantalla que la impronta va a reescribir y luego usar la función 
putimage para restituir la pantalla original antes de llamar a lj_grafico o ter- 
minar. 

Otro enfoque consistiría en conmutar las páginas de vídeo activas, escribir 
la información de la impronta en la página alternativa y luego volver a la 
página original. 
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La función linea_aviso 


Esta función debería resultar familiar. Su llamada se produce con un me 
como argumento. Su trabajo consiste en dibujar una caja en la parte inferior 
de la pantalla, centrar el mensaje en el interior de la caja, y devolver el control 
a la función de llamada, para que siga trabajando. 


void linea_aviso( char *msg ) 

S 
int altura, maxX = getmaxx(), maxY = getmaxy(); 
setcolor( getmaxcolor() ); 
settextstyle( DEFAULT_FONT, HORIZ_DIR, 1 ); 
settextjustify( CENTER_TEXT, TOP_TEXT ); 
altura = textheight( "H" ); 
bar( 0, maxY-(altura+4), maxX, maxY ); 
rectangle( 0, maxY-(altura+4), maxX, maxY ); 
outtextxy('maxX/2, maxY-(altura+2), msg ); 


Más información sobre los colores y su proyección 


Advertencia: El color, al igual que la belleza, depende de los ojos del que 
mira. Podemos diferir en nuestras percepciones del color, así como en sus 
valores. Por ello, el lector cuenta con entera libertad para reescribir o adaptar 
las siguientes indicaciones de traducción de colores a sus propias percepcio- 
nes cromáticas. 


Proyección auténtica de los colores en la escala de grises 


En la opción ESCALAGRISES utilizada en lj_grafico, la paleta de la escala 
de grises se proyectó de acuerdo al número de elementos de la misma asigna- 
dos a los pixels de la pantalla, y no según los colores reáles de la pantalla, 
Pero, dado que los colores de la paleta por omisión están ya más o menos 
dispuestos en orden de intensidad, eso constituye una mínima discrepancia en 
la mayoría de los casos. En caso de necesitar un color más exacto para la 
proyección de la escala de grises, se dispone de distintos enfoques. 

Uno de ellos consiste en leer los valores de los colores de la paleta (no los 
números de los elementos de la misma), ordenar los valores asignados a sus 
componentes y crear un mapa de conversión de colores a la escala de grises. 
El inconveniente de este enfoque, desafortunadamente, es que los valores de 
estos colores no reflejan las intensidades de los mismos, por lo que debería 
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Figura 14-7 Proyección auténtica de los colores en la escala de grises 


rRgGbB %e Color EGA Valor rRgGbB % Color EGA 
BLACK 1 aaa 503 
a 29 au mn 507 
a a BLUE YN a na 530 
A 60 nan A 533  LIGHTRED 
na 35 a q 1 307 
El H 5 nan an 570 
a A 18 na 590 
a 6 n A 593 
a RED 43 4 nan 603 
a aa 6 auna aa 607 LIGHTMAGENTA 
LA 26 aan 627 
a 14 14 an .a 630 
. a 19 na a 663 
A a MAGENTA 7 a am a 6667 LIGHTGREY 
4. a 50 aa 690 
nu 3x4 A 693 
4 4. 27 nana 700 
a na 15 4 nan 703 
a RS DARKGREY 58. 54 naa 727  LIGHTGREEN 
HH a 46 44 nu 730 
LN a 51 aa nu 763 
aa a 2D xa Mom 767 
a GREEN 22 aaa 790 
aa BROWN s a mnnmnm 800 LIGHTCYAN 
O LIGHTBLUE 4 na »uHn 803 
na aa 30 a4aana 827 
na 23 nua a 863 
na A 54 anna 890 
24 a CYAN 31 anannaó 900 
na a 602 HnannHa 927 YELLOW 
.Ú a 55 nunun n 963 
nana 63 xaannna 1000 WHITE 


prepararse manualmente una segunda tabla de conversión, con objeto de pre- 
parar las bases de la ordenación. 

Un enfoque más sencillo consiste en descifrar los valores de los colores de 
la paleta y crear un valor de intensidad para cada uno de ellos, procediendo a 
ordenar posteriormente el mapa "del color al gris" de acuerdo con estas inten- 
sidades. Para intentar esto, hace falta sentar las bases que permitan decidir qué 
color es más intenso que cualquier otro. De los tres colores primarios (rojo, 
azul y verde), el ojo humano percibe el verde de una forma más intensa, luego 
el rojo, y por último el azul. Una fórmula que reflejase la percepción de ojo 
humano daría lo siguiente: gris = 0,30 *R + 0,59 *G + 0,11 *B. 

Pero los valores de la paleta de colores EGA/VGA tienen dos indicadores 
por cada color, Rojo primario y rojo secundario, Verde primario y verde 
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secundario, y Azul primario y azul secundario, por lo que se hace necesaria 
una fórmula que pueda calcular el valor del gris partiendo de los seis indica- 
dores (colores), en lugar de hacerlo sólo de los tres 

Si los colores secundarios se asignan arbitrariamente como 1/3 del valor 
base y los primarios como 2/3 del mismo, entonces la fórmula daría lo si- 
guiente: grís = 0.30*(1+2*R)/340.59*(g+2*G)/340.11%(b+2*B)/3. 

La Figura 14-7 muestra los porcentajes de la escala de grises generados 
con esta fórmula. Los colores EGA/VGA de la paleta por omisión se etiquetan 
con los valores de los colores actuales que aparecen en la columna de la 
izquierda. 

Al examinar el orden de la escala de grises, observe que la secuencia de 
los valores grises no coincide con la secuencia generada por los valores de los 
colores ni con la secuencia de grises generada por la conversión por omisión 
de la función escala_grises. Aquí la secuencia de grises está estrictamente de 
acuerdo con la intensidad de percepción, estando DARKGREY a mitad de 
camino entre los, colores de baja intensidad MAGENTA y CYAN (justo lo 
que podría esperarse de un tono promediado de gris). De forma similar, el 
color LIGHTGREY está entre las sombras del LIGHTMAGENTA y las de 
LIGHTGREEN y, como también puede observarse, el color LIGHTBLUE 
aparece un poco más brillante que el color BROWN, 

Como se ha dicho anteriormente, no existe ninguna regla ni inflexible ni 
rápida que diga cual es la fórmula de conversión exacta, y si esto no se ajusta 
a su aplicación o a su percepción, por favor, experimente libremente con ella. 
Un consejo: el método más sencillo de experimentación consistiría en usar 
una buena hoja de cálculo, y crear una fórmula propia, aplicarla a los bits de 
color rRgGbB, y dejar que la hoja de cálculo ordenara los resultados para su 
posterior examen. 


ye EP-GRAPH.1I e 
/* Controlador de salida de gráficos para impresoras EL 
/* matriciales $7 


itdefine VERTICAL 0 
itdefine APAISADO 1 


void imprime _grafico( int modo, int direccion ) 
1 

char m; 

int i, j, k, cociente, resto, 

maxX = getmaxx(), 
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maxY = getmaxy(); 


setviewport( 0, 0, maxX, maxY, 0 ); 
fprintf£( stdprn, "Ax1BA%c", 7 ); /* establece espaciado 
interlineal de 7/72 pulgadas */ 


switch( direccion ) 
t 
case VERTICAL: 
t 
resto = (maxX+1) £ Ox00FF; /* módulo de maxX+1 
entre 256 */ 
cociente = (maxX+1) >> 8; /* (int) maxX+1 / 256 */ 
for( ] = 0; j <= maxY / 8; J++ ) 
A 
fprintf£( stádprn, "Ax1B*%c%c%c", 
modo, resto, cociente ); 
for( i= 07 d <= maxX; 1++ ) 
( A 
m= 0; 
for( k = 0; k< 8; k++ ) 
y 
m << 13 /* desplaza en m un bit 
a la izquierda */ 
if( getpixel( 1, 3 *8+k)) ome; 
y /* si hay un pixel, pone un 1 en m */ 
fprintf£( stdprn, "%c", m ); 
) 
fprint£( stdprn, "Ax0DAx0A" 
, /* se usa el código CR/LF en vez de In */ 


J 
case APAISADO: 
t 
resto = maxY £ 0x00FF; /* módulo de maxY entre 256 */ 
cociente = maxY >> 8; /* (int) maxY / 256 */ 
for( j = 0; j] <maxX; J] += 8 ) 
t 
fprint£( stdprn, "x1B*%c%c%c", 
modo, resto, cociente ); 
for( 1 = maxY; li >= 0; i-- ) 


1 
m= 0; 
for( k = 0; k < 83 k++ ) 
t 
m <<= 1; /* desplaza en m un 


bit a la izquierda */ 


PROGRAMACIÓN DE GRÁFICOS EN TURBO C++ 


if( getpixel( j+k, ii) ) m++; 


, /* si hay pixel, 
pone bit 1 énm */ 


fprintf( stdprn, "%c", m ); 


, 
fprint£( stdprn, "Ax0DAx0A" ); 
y /* se usa código de CR/LF en vez Yn */ 
) 
) 
fprint£( stdprn, "Y£" ); /* salto de página */ 
y 
/*== - ====== 
se LJ-GRAPH.I 4 dd 
/* Controlador de salida de gráficos para impresoras */ 
/* laser lo 


Ras==== 


void linea_aviso( char *msg ) 


tí 
int altura, maxX = getmaxx(), maxY = getmaxy(); 
setcolor( getmaxcolor() ); /* Porie el color WHITE */ 
settextstyle( DEFAULT_FONT, HORIZ_DIR, 1 ); 
settextjustify( CENTER_TEXT, TOP_TEXT ); 
altura = textheight( " de /* Determina la altura 
actual */ 
bar( 0, maxY-(altura+4), maxX, maxY ); 
rectangle( 0, maxY-(altura+4), maxX, maxY ); 
outtextxy( maxX/2, maxY-(altura+2), msg ); 
3 
ttdefine VERTICAL 0 /* definicion: para 
pausa_presentacion */ 
iidefine APAISADO dE /* orientación de la imagen */ 
Hidefine ESCALAGRISES 2 /* y color para la escala 
de grises */ 
int Negativo; /* bandera para el orden 
en la escala de grises */ 
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maxY = getmaxy(); 


setviewport( 0, 0, maxX, maxY, 0 ); 
fprintf( stdprn, "Ax1BA%c", 7 ); /* establece espaciado 
interlineal de 7/72 pulgadas */ 
switch( direccion ) 
t 
case VERTICAL: 
Ñ 
resto = (maxX+1) £ Ox00FF; /* módulo de maxX+1 
entre 256 */ 
cociente = (maxX+1) >> 8; /* (int) maxX+1 / 256 */ 
for( j = 0; j <= maxY / 8; J++ ) 
t 
fprint£( stdprn, "Ax1B*%c%c%c", 
modo, resto, cociente ); 
for( i= 0; di <= maxX; 1++ ) 
( A 
m= 0; 
for( k = 07 k < 8; k++ ) 


en mun bit 
quierda */ 


m <<= 1; /* desplaz 
a la 
if( getpixel( 1, 3 *8+kXk) ) met; 
y /* si hay un pixel, pone un 1 en m */ 
fprintf( stdprn, "%c", m ); 


) 
fprintf( stdprn, "Ax0DAx0A" ); 
) /*. se usa el código CR/LF en vez de In */ 
) 
case APAISADO: 
se 
resto = maxY £ Ox00FF; /* módulo de maxY entre 256 */ 
cociente = maxY >> 8; /* (int) maxY / 256 */ 
for( j = 0; j <maxX; J] += 8 ) 
1 
fprintf( stdprn, "x1B*%c%c%c", 
modo, resto, cociente ); 
for( 1 = maxY; d >= 07 1-- ) 


0; k < 8; k++ ) 


pa /* desplaza en m un 
bit a la izquierda */ 
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if( getpixel( j + k, 1) ) me; 
$ /* si hay pixel, 
pone bit 1 en m */ 


fprintf( stdprn, "%c", m ); 
J 
fprint£( stdprn, "Ax0DAx0A" ); 
y /* se usa código de CR/LF en vez Wn */ 
) 
) 


fprintf( stdprn, "NE" ); /* salto de página */ 
J 


At LJ-GRAPH.I bel 
/* Controlador de salida de gráficos para impresoras m0 
/* laser */ 


void linea_aviso( char *msg ) 


E 
int altura, maxX = getmaxx(), maxY = getmaxy(); 
setcolor( getmaxcolor() ); /* Pone el color WHITE */ 
settextstyle( DEFAULT_FONT, HORIZ_DIR, 1 ); 
settextjustify( CENTER_TEXT, TOP_TEXT ); 
altura = textheight( "H" ); /* Determina la altura 
actual */ 
bar( 0, maxY-(altura+4), maxX, maxY ); 
rectangle( 0, maxY-(altura+4), maxX, maxY ); 
outtextxy( maxX/2, maxY-(altura+2), msg ); 
J 
iidefine VERTICAL 0 /* definiciones para 
pbáusa_presentacion */ 
tidefine APAISADO A /* orientación de la imagen */ 
iidefine ESCALAGRISES 2 /1* y color para la e 
de grises */ 
int Negativo; a para el orden 


*/ 


en la escala de gris: 
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int prepara( double posicion ) 


£ 


J 


int escala_grises( int linea, 


t 


int 


if( 
isl 
if( 


anchura = 6; 


posicion < 1000.0 ) anchura--; 
posicion < 100.0 ) anchura 
posicion < 10.0 ) anchura--; 


return( anchura ); 


int gris = 0; 
if( ControladorGrafico == CGA ££ ModoGrafico != CGAHI ) 


switch( linea ) 


t 

1 
q 
else 
t 


case 0: ( if( paleta £ 1) 


gris |= 9; 
if( paleta £ 2 ) 
gris |= 6; 
) break; 
case 1: if( paleta £ 1 ) 
gris |= 4; 
if( paleta £ 2 ) 
gris |= 11; 
) break; 
case 2: l 1if( paleta £ 1 ) 
gris |= 2; 
if( paleta £ 2 ) 
gris |= 13; 
) break; 
case 3: [ ¡if( paleta £ 1 ) 
gris l= 9; 


if( paleta £ 2 ) 
gris |= 6; 
) break; 


switch( linea ) 


1 


case 0: [ if( paleta £ 4 ) 


grie |= 5; 
if( paleta £ 8 ) 
gris |= 10; 


) break; 


int paleta ) 


VE 


+ 


y 


VE 


VES 


y 


E 


yA 


px 


pone 


pone 


pone 


pone bi 


pone 


pone 


pone 


pone 


pone 


pone 


5d 


Lei 


lb 


5 


ld 
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case 1: ( ¿if( paleta £ 1) 


gris |= 2; /* pone 
if( paleta £ 2 ) 
gris |= 8; /* pone 
if( paleta £ 8 ) 
gris” l= 57 /* pone 
) break; 
case 2: [ ¿if( paleta £ 4 ) 
gris ls 55 /* pone 
if( paleta £ 8 ) 
gris |= 10; (* pone 
) break; 
case 3: [ if( paleta £ 2 ) 
gria la 27 


if( paleta £ 8 ) 
gris |= 5; /* pone 
) break; 
Y 
if( Negativo ) gris %= O0x0F; /* inviez 
de la escala 


e 


return( gris ); 


J 


void 1j_grafico( int modo ) 
t 
int 1, 3, k, p, q. xasp, yasp, 
maxX = getmaxx() + 1, 
maxY = getmaxy() + 1; 
static char fin graf[] = "Ax1B*rB"; 
static char inicio graf[] = 


bits da 
bits 1 $ 
bits 1 
STES ¿L. 1 S 


pis. TL. AY 


Dia Lol 


los patrones 


es y 


de gr 


"AX1BEAx1B8£11H1x1B8101x1B*p0XAx1B*pOYAx1B*t"; 


double xtexto, ytexto, saltotexto, FactAsp; 
char m, resolucion[3]; 


getaspectratio( £xasp, £$yasp ); 
FactAsp = (double) xasp / (double) yasp; 
setviewport( 0, 0, maxX, maxY, 0 ); 
switch( modo ) 
t 
case VERTICAL: 
( 
xtexto = 690.0, ./* posición inicial de 
ytexto = 500.0, 
strcpy( res 


impresión */ 


jolucion, "100" ); /* selecciona 100 ppp */ 
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a la imagen 
pantalla */ 
fprint£( stdprn, "%s%sR", inicio graf, resolucion ); 
for( j=0; j<=maxY; j++ ) 


saltotexto = 7.2 / FactAsp; 


t 
fprint£( stdprn, "Ax1Bsa%-*.1fh%-*.1£v", 
prepara( xtexto ), xtexto, 
prepara(. ytexto ), ytexto ); 
ytexto += saltotexto; 
fprintf£( stdáprn, "Ax1B*r1Aix1B*b%dW", maxX/8 ); 
for( ¿i=0; i<maxX/8; i++ ) 
E 
m= 0; 
for( k=0; k<8; k++ ) 
de 
m<<= 1; laza en m un 
bit a izquierda */ 
if( getpixel( ¿1*8+k, J] ) ) me+; 
/* si hay pixel, pone bit a 1 */ 
J 
fprint£( stdprn, "%c", m ); 
J 
fprint£( stáprn, "%s", fin_graf ); 
) 
) break; 


case APAISADO: 


t 

xtexto = 1000.0; /* posición inicial de impresión */ 

ytexto = 1000.0; 

strcpy( resolucion, "75" );/* selección de 75 ppp */ 

saltotexto = 9.6 * FactAsp; /* ajusta la imagen 
de la pantalla */ 


fprint£( stdprn, "%s%sR", inicio graf, resolucion ); 
for( j=0; j<maxX; j++ ) 
t 
fprintf£( stáprn, "ixl1Bea%-*.1fh%-*.1£v", 
prepara( xtexto ), xtexto, 
prepara( ytexto ), ytexto ); 
ytexto += saltotexto; 
fprintf£( stdprn, "Ax1B*r1A1x1B*b%dW", (int) 
( maxY+4 )/8 ); 
for( i=0; i<=maxY/8; i++ ) 


for( k=0; k<8; k++ ) 
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SS 
m <<= 1; /* desplaza m 1 bit 
a la izquierda */ 
if( getpixel( maxX-j, i*8+k ) ) 
Mp /* si hay pixel, 
pone bit a 1 */ 
): 
fprintf£( stdprn, "%c", m ); 
) 
fprint£( stáprn, "%s", fin _graf ); 
) 
) break; 


case ESCALAGRISES: 
t 


xtexto = 1000.0; /* posición inicial de 
ps impresión */ 
ytexto = 1000.0; 


strcpy( resolucion, "300" ); /* selección de 
300 ppp */ 
saltotexto = 2.4 * FactAsp; /* ajusta imagen de 


la pantalla */ 
fprintf( stdprn, "%s%skR", inicio graf, resolucion ); 
for( j=0; j<=maxX; j++ ) 
for( p=0; p<4; p++ ) 
í 
fprintf£( stdprn, "AxlBsa%-*.1fh%-*.1£v", 
prepara( xtexto ), xtexto, 
prepara( ytexto ), ytexto ); 
ytexto += saltotexto; 
fprint£( stáprn, "Ax1B*ri1A1x1B*b%dW", maxY/2 ); 
for( 1=0; i<=maxY/2; i++ ) 


t 
m= 0; 
for( k=0; k<=1; k++ ) 
t 
m <<= 4; /* desplaza en m 4 bits 
a la izquierda */ 
m |= escala_grises( p, 
getpixel( maxX-j, 1*2+k ) ); 
J 
fprintf( stdprn, "%c", m ); 
É 


fprint£( stdprn, "%s", fin graf ); 
E a J /* fin del switch */ 
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fprintf( stdprn, 
"XxOCAx1B£101x1B(8UAx1B(sp10h12vsb3T1x1B811H" ); 
/* cierra oper. 


J 


void pausa _presentacion( int invierte ) 
s 
char tecla; 
int terminar = 0; 
if( invierte ) Negativo = 1; else Negativo = 0; 
while( !terminar ) 
1 
linea_aviso( "Introduzca <V>ertical, <A>paisado, 
<E>scala grises " 


"  -- u Otra tecla para salir"); 
while( kbhit() ) getch(); 


tecla = getch(); 
switch( toupper(tecla) ) 


1 
case 'V' : 1lj_grafico( VERTICAL ); break; 
case 'A' : 1j_grafico( APAISADO ); break; 
case 'E” : 1l1j_grafico( ESCALAGRISES ); break; 
default : terminar++; 

, 


ma 


El editor de fuentes Turbo 


El editor de fuentes es una utilidad diseñada para crear o editar fuentes seg- 
mentadas utilizables en Turbo Pascal, Turbo C++ o Turbo Prolog con panta- 
llas 's BGI. Consta de un programa editor FE.EXE y nueve fuentes de 
caracteres: EURO.CHR, GOTH.CHR, LCOM,CHR, LITT.CHR, SANS.CHR, 
SCRI.CHR, SIMP,CHR, TRIP.CHR y TSCR.CHR. 

El editor de fuentes segmentadas está disponible sin ningún coste añadido 
al ser básico para los usuarios de Turbo Pascal, Turbo C++ y Turbo Prolog, 
pudiendo transferirse en los foros de programación Compuserve de Borland 
International (utilice GO BPROGA para Turbo Pascal y GO BPROGB para 
Turbo C++ y Turbo Prolog). 

También está disponible a través de Borland, vía Compuserve, una utilidad 
de conversión de .BIN a ,BGT (DFONT.EXE, DFONT.C y FONT.H) y una 
herramienta de desarrollo de controladores .BGI (consulte el apéndice D). 

Las siguientes instrucciones se aplican a la revisión 1.0 del editor de fuen- 
tes; fecha de lanzamiento, octubre de 1988; derechos de copia, Borland Inter- 
national. Las revisiones y actualizaciones futuras estarán disponibles en el 
Forum Computerserve de Borland. 


Introducción a las fuentes segmentadas 


Las fuentes segmentadas definen los caracteres como instrucciones aplicadas 
a secuencias de líneas (segmentos) que delimitan sus contornos. Por contra, 
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la fuente de texto estándar mostrada por su computador es una fuente de 
mapas de bits, donde cada carácter se define con una matriz de puntos. 

La ventaja de las fuentes segmentadas radica en que tanto el tamaño de los 
caracteres como sus proporciones pueden aplicarse en distintas escalas, sin 
que ello signifique pérdida de resolución. Las fuentes de mapas de bits pueden 
ampliarse, aunque sólo en múltiplos sencillos del tamaño de la retícula, ya que 
se degradan ostensiblemente cuando se someten a ampliaciones. 

Por ejemplo, si una fuente de mapas de bits se amplia cuatro veces, cada 
uno de los puntos de la retícula original se transforma en un cuadro de 4x4 
pixels, dando origen a una figura de aspecto escalonado (consulte la Figura 
15-1). 


Figura 15-1 Caracteres segmentados versus mapas de bits 


cc rra 
A AA, 


Las fuentes segmentadas no se convertirán en patrones de puntos (pixels) 
hasta que se conozcan sus tamaños y la resolución del dispositivo de salida. 
Una fuente segmentada puede redimensionarse sin modificar su aspecto, Ade- 
más, las fuentes segmentadas pueden escribirse sobre dispositivos con resolu- 
ciones absolutamente diferentes (como las impresoras matriciales de 120 ppp 
o las impresoras Laserjet de 300 ppp) sin pérdida de resolución (consulte la 
Tabla 15-1). 

El editor de fuentes puede utilizarse para crear fuentes no alfabéticas o 
fuentes de símbolos para aplicaciones y pantallas especializadas. Por ejemplo, 
en el capítulo 9 se ha visto que las imágenes de bits se crearon para su 
utilización en las pantallas de gráficos de líneas. El editor de fuentes permite 
crear estas mismas imágenes en forma de símbolos segmentados. Esto es, sin 
duda, mucho más lógico que la escritura de instrucciones bit a bit. Los sím- 
bolos resultantes pueden «utilizarse no sólo en las pantallas de gráficos de 
líneas, sino en una gran variedad de aplicaciones y siempre con el tamaño 
deseado (consulte la Figura 15-2). 


EL EDITOR DE FUENTES TURBO 335 


Figura 15-2 Fuentes simbólicas especiales (alfabeto rúnico) 


AS 


Además, se dispone de nuevas fuentes segmentadas. Para más detalles 
sobre fuentes nuevas y fuentes creadas por el usuario, consulte el apartado 
Uso de fuentes gráficas a medida. 


Tabla 15-1 Fuentes segmentadas 


Nombre del Nombre de 

archivo Fuente definición Valor 
"EURO.CHR Fuente europea + > 

GOTH.CHR Fuente gótica GOTHIC_FONT! 4 
"LCOM.CHR Fuente (romana) de texto - - 

LITT,CHR Fuente pequeña SMALL_FONT! y 

SANS.CHR Fuente Sans_serif SANS_SERIF_FONT! 3 
CRI.CHR Fuente = E 

SIMP.CHR Fuente Simplex E a 

TRIP.CHR Fuente Triplex TRIPLEX_FONT! 1 
'TSCR.CHR Fuente itálica de texto 

* fuentes nuevas súministradas con el editor de fuentes. 


| Nombres de fuentes y valores definidos en el archivo de cabecera GRAPHICS,H. 


Necesidades del sistema 


El editor de fuentes es compatible con la mayoría de los sistemas, pero impo- 
ne un mínimo de requisitos: 


COMPUTADOR: El Editor de Fuentes (FE.EXE) corre en PCs, PC/XTs, 
PC/ATs de IBM y compatibles. Además, deberá disponerse del controlador 
.BGI adecuado (que será EGAVGA.BGI en la mayoría de los casos) en el 
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mismo directorio que FE.EXE o bien proporcionarse un camino en el archivo 
AUTOEXEC,BAT que indique la dirección del directorio que contiene los 
archivos .BGI, 


RATÓN: El editor de fuentes necesita un ratón que admita el interfaz del 
controlador del ratón externo de Microsoft (protocolo MM). Esto incluye los 
ratones de Microsoft, Mouse Systems y Logitech en bus o serie. 

En caso de utilizar otro tipo de ratón físico consulte el manual de instruc- 
ciones de la instalación del mismo. El controlador del ratón (MOUSE.COM o 
MOUSE.SY'S) debe encontrarse en memoria antes de llamar al editor de fuen- 
tes, Por definición, el controlador del ratón se carga como un controlador 
DOS en el archivo CONFIG.SYS (DEVICE=MOUSE.SYS) o en AUTOE- 
XEC.BAT (MOUSE <cr> o MOUSE 2 <cr>), dependiendo de la puerta utili- 
zada, 


GRAFICOS: “El editor de fuentes necesita además un adaptador gráfico 
mejorado (EGA) o compatible y una pantalla en color. La tarjeta de adapta- 
ción gráfica debe tener un mínimo de 128K RAM instalados. 


TRAZADOR GRAFICO: (Opcional) El editor de fuentes admite la co- 
ca de la pantalla (hardcopy) sobre uno de los siguientes trazadores 
gráficos de Hewlett Packard o compatibles: 


M HP 7470 
mM HP 7475 (8 1/2 x 11 sólo papel) 
ME HP 7440 (Color Pro) 


Deberán tenerse en cuenta dos consideraciones. Primera, al utilizar un tra- 
zador gráfico y un ratón serie son necesarios dos puertos serie, uno para el 
trazador gráfico y uno para el ratón. Cuando se solicite la salida de los datos 
hacia el trazador gráfico, el editor de fuentes pedirá la puerta (COM1 o 
COM2) para el trazador y la pondrá activa. Asegúrese de indicar la puerta 
correcta o puede que se encuentre con que el ratón ya no responde. Una vez 
seleccionada la puerta del trazador gráfico, el editor de fuentes pedirá los 
parámetros de iniciación, asumiendo 9600 baudios, paridad par, 7 bits y 1 bit 
de stop. Si se desean otros valores, entonces deberían iniciarse tres puertas 
serie por medio de la orden Mode de DOS. 


Segundo, el problema más común de interfaz entre un trazador gráfico de 
HP y un computador de otra marca diferente radica en el cable de conexión. 
Si Vd. experimentara algún problema, sepa que Hewlett Packard suministra 
un cable estándar para esta aplicación, con el número HP 17255D. También 
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puede utilizarse un cable de conexión directa RS-232C junto a un modem nulo 
(dummy). 


Posibilidades generales 


El editor de fuentes edita fuentes segmentadas de Borland (archivos con la 
extensión .CHR incluídos en Turbo C++ y Turbo Pascal o fuentes suministra- 
das con el editor). Se pueden leer las fuentes, editar caracteres individuales, 
visualizar con anticipación caracteres sobre la pantalla o sobre el t 
gráfico y guardar sobre un disco las fuentes resultantes. 


La pantalla del editor de fuentes 


La pantalla del editor de fuentes se divide en cuatro áreas principales. Cada 
pantalla reacciona de manera diferente con el ratón, por lo que el uso de éste 
será lo primero que se trate. 


Convenciones sobre el ratón 


Los botones de la izquierda y de la derecha del ratón se tratan de la misma 
manera. El uso del ratón con el editor de fuentes nos lleva a dos operaciones 
principales: una pulsación y una liberación rápida del botón del ratón (un 
"clic”") cuando el cursor gráfico se coloca sobre un objeto que se desea selec- 
cionar, o un arrastre, una operación de pulsación y mantenimiento del botón 
pulsado, con desplazamiento del ratón; esto permite el desplazamiento de 
objetos o la definición de un área. Durante la operación de arrastre, el objeto 
se pega al cursor del ratón, desplazándose con él hasta que el botón se suelte. 


Definición de un área con el ratón 


El ratón permite la definición de un área dentro de la ventana de trabajo. La 
posición en la que se ha pulsado el botón del ratón marca una esquina; la 
esquina diagonalmente opuesta se define cuando el boton se suelta. 

En caso de definir erróneamente la esquina de comienzo, el error ya no 
puede corregirse, a no ser que se comience de nuevo (definición de un nuevo 
rectángulo). La segunda esquina, sin embargo, puede modificarse desplazando 
el ratón antes de soltar el botón. 
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Uso del ratón en la ventana de caracteres 


Al utilizar el ratón en la ventana de edición de caracteres puede observarse 
que éste se desplaza en pasos discretos, moviéndose sólo entre los puntos de 
intersección donde los segmentos pueden empezar y acabar. El espaciamiento 
entre los puntos de la retícula de fondo depende de la opción Zoom, aunque 
también del tamaño de la fuente que se está editando. Por ejemplo, si se 
selecciona LITT.CHR (SMALL_FONT), los puntos de la retícula quedarán 
muy separados (una retícula de 12x10 puntos), mientras que la selección de 
SANS.CHR (SANS_SERIF_FONT) mostrará una retícula muy poco espacia- 
da (una retícula de 44x33 puntos). 


Abandono de la operación de salida hacia el trazador gráfico 


La pulsación de cualquier botón del ratón durante la salida hacia el trazador 
gráfico da por terminado el volcado hacia éste. Puede que esto requiera man- 
tener pulsado el botón del ratón durante algunos segundos hasta que el estado 
del botón haya sido reconocido. El trazado no terminará de forma inmediata, 
sino que continuará hasta que la memoria intermedia ya no guarde ninguna 
orden más, 


Menú del editor de fuentes 


Cuando se utiliza el editor de fuentes aparecen una serie de menús en una 
línea de texto a lo largo de la parte superior de la pantalla. Esto permite una 
selección sin más que pulsar el botón del ratón. Ciertos elementos del menú, 
tales como Load y Save, realizan funciones sencillas; una vez completas éstas, 
se vuelve a mostrar el mismo menú, Otros elementos, como Edit, muestran un 
menú nuevo. Todos los menús, salvo el inicial, contienen el elemento Exit 
para permitir el retorno al menú anterior. 

El elemento Quit del menú principal provoca el retorno a DOS. Si se 
hubieran producido cambios en la fuente actual, se solicitaría la opción Save 
antes de salir, 


Selección de un carácter para editar 


Cuando se llama al editor de fuentes por primera vez, un menú muestra todas 
las fuentes .CHR que se encuentran en el directorio actual. El primer paso 
consiste en utilizar el ratón para seleccionar una fuente. Una vez hecha la 
selección, la pantalla cambiará a la ventana de edición. El directorio de fuen- 
tes también puede llamarse seleccionando Load de las opciones del menú que 
se encuentra en la parte superior de la pantalla. 
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A la derecha de la pantalla de edición, un amplio área rectangular muestra 
una pantalla de 256 caracteres (usando el juego de caracteres ASCII extendi- 
do, no la fuente que se está editando). Al pulsar el botón del ratón sobre uno 
de los caracteres de la caja, se produce la selección y edición de este último, 
mostrándose el carácter equivalente de la actual fuente sobre la ventana del 
editor en forma de una serie de segmentos: debajo se muestra la caja de 
selección con un tamaño proporcional equivalente a la unidad. Los caracteres 
también pueden seleccionarse a través del teclado, 

Los caracteres mostrados en la ventana de selección aparecerán en verde 
si la fuente actual contiene una definición segmentada del carácter o en rojo 
en caso contrario. Los caracteres 00h (nulo), 20h (espacio) y FFh se escriben 
como espacios en blanco, pero pueden seleccionarse y definirse como carac- 
teres de la fuente. 

El carácter seleccionado aparecerá en alta intensidad sobre la pantalla (co- 
mo verde brillante o rojo brillante). 


La ventana de caracteres 


La ventana de caracteres es un amplio área rectangular sobre la mitad izquier- 
da de la pantalla (consulte la Figura 15-3) donde tiene lugar la edi 
estos. El editor de fuentes mostrará los segmentos del carácter seleccionado. 
Se puede editar un carácter ya existente o bien se puede crear uno nuevo, 
utilizando el ratón para borrar segmentos o para añadir nuevas líneas. 

La línea vertical a lo largo del lado izquierdo de la retícula muestra el 
lateral izquierdo del carácter, Las cuatro líneas horizontales que comienzan en 
la parte superior, muestran la altura de un carácter en mayúscula (A, C, E, 
etc), la altura de un carácter en minúscula (a, c, e, etc.), la línea base y la 
profundidad de los segmentos descendentes (como ocurre con g, j, O y). 


Anchura del carácter y espaciamiento 


Observe el triángulo que se encuentra a lo largo de la línea base, a la derecha, 
en la Figura 15-3. Esta marca muestra la posición de comienzo del siguiente 
carácter (cl espacio entre caracteres). La anchura del carácter puede cambiarse 
desplazando el triángulo hacia una nueva posición. 

El ajuste!, práctica usual entre los especialistas en montaje consiste en 
espaciar los caracteres para permitir la correcta concatenación de determina- 
dos pares. Esta práctica no se sostiene por sí misma, pero la anchura de los 
caracteres puede ajustarse arbitrariamente, hasta conseguir fuentes con un 
pequeño o un gran espaciado. 


Hablamos de ajuste de letras o kerning. (N. del T.) 
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Figura 15-3 Ventana de edición 


Edición de un carácter 


Un carácter segmentado puede incorporar nuevos segmentos o suprimir algu- 
nos ya existentes sin más que desplazar el cursor hacia la posición de comien- 
zo del segmento que se desea tratar, pulsar el botón y arrastrar el cursor hasta 
el punto de destino. Si no existiera ningún segmento que conectase estos 
puntos de forma previa, entonces se incorporaría uno nuevo. Si ya existiera 
uno, entonces se borraría. 

No se admiten curvas. Sin embargo, tanto éstas como los recodos pueden 
simularse con series de segmentos, como se ve en la Figura 15-3, El trazado 
de una línea donde no había nada antes, añadirá un nuevo segmento a la 
definición del carácter. El trazado de una línea encima de otra línea ya exis- 
tente borrará la línea que esté debajo de la definición del carácter (no dejando 
ninguna). 

Se pueden llevar a cabo distintas combinaciones de añadidos y borrados 
de segmentos con una línea. Por ejemplo, el trazado de un nuevo segmento 
en la mitad de una línea ya existente borra esa porción de la línea, dejando 
dos segmentos que corresponden a las porciones finales que no han sido 
reescritas. 


El carácter reducido 


El área que se encuentra en la esquina inferior derecha de la pantalla muestra 
una versión reducida del carácter vigente (con un tamaño proporcional equi- 


EL EDITOR DE FUENTES TURBO 341 


valente a la unidad). Nota: la visualización del carácter reducido no se ve 
afectada por los añadidos y los borrados realizados en la ventana del editor 
hasta que se ejecute la opción Update. 

Este área sólo es informativa; aquí, el ratón no puede seleccionar nada. 


La caja del selector Update 


Los cambios (añadidos y borrados) sobre el carácter que se está editando no 
se hacen definitivos hasta que se pulsa la opción Update (que aparece sobre 
la caja de selección). 

Durante la edición, los cambios que se produzcan sobre el carácter se 
salvarán en una zona de memoria interna del editor. Para hacer permanentes 
estos cambios deberá seleccionarse la opción Update; de esta forma la memo- 
ria intermedia se escribirá sobre el carácter vigente. 

Al pulsar sobre el carácter vigente de la caja de selección, el editor pre- 
guntará si los segmientos deben añadirse (o borrarse) sobre dicho carácter. La 
pulsación sobre un carácter nuevo mostrará la misma pregunta antes que dicho 
carácter se muestre en la ventana de edición. 

Las operaciones de edición sólo afectan a la imagen editada, no a los 
segmentos de los caracteres. Como ejemplo, supongamos que se incorporan 
varias líneas nuevas a un carácter determinado pero éste no se actualiza con 
Update; si, a continuación, se selecciona la opción Edit del menú para actuar 
sobre un nuevo carácter, sólo se verá afectada la información de la memoria 
intermedia reservada para el primer carácter, y no se desplazarán las últimas 
líneas incorporadas a la imagen. Esto es aplicable a todas las funciones del 
editor, incluyendo move, flip, flop, reverse, shift, cut y copy. 


Herramientas de edición 


Esta sección aporta una breve descripción de las herramientas del editor de 
fuentes (consulte la sección Referencia de las órdenes para mayor detalle 
sobre ellos). 


Segmentos elementales 


La imagen de un carácter puede someterse a borrado o a adición de segmentos 
elementales sin más que desplazar el cursor de ratón hacia la ventana de 
caracteres y realizar allí una operación de arrastre entre los puntos de la 
retícula en los que deba añadirse o eliminarse un segmento. A medida que el 
ratón se vaya desplazando irá apareciendo una línea entre el punto de comien- 
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zo y el punto de mira de éste (un proceso conocido como banda de borrado? 
porque da la sensación que la línea se dilata o se contrae para seguir al 
cursor). 

La aplicación de la banda de borrado sobre un segmento ya existente pro- 
voca su borrado, mientras que si este proceso se realiza sobre una porción de 
línea, tan sólo se borrará esa porción. Además, si el cursor del ratón se des- 
plazara fuera del límite de la ventana de caracteres durante la aparición de la 
banda de borrado sobre la línea marcada, el segmento desaparecería. 


Grupos de segmentos 


Se observa que distintos caracteres comparten los mismos grupos de segmen- 
tos, por lo que estos pueden manipularse como objetos elementales mediante 
las órdenes Ediv/Clipboard. Por ejemplo, los segmentos que definen la parte 
izquierda de una "c" serán probablemente los mismos que los de la parte 
izquierda de una "d", 

Las herramientas del menú Clipboard permiten la selección de un determi- 
nado grupo de los segmentos que componen un carácter para su posterior 
utilización sobre ese carácter o sobre cualquier otro. Las opciones Cut y Copy 
almacenan grupos de caracteres hacia una zona de memoria intermedia llama- 
da área Clipboard. Cut elimina los segmentos del carácter vigente, mientras 
que Copy deja los originales tal cual. 

Los segmentos se seleccionan del área Clipboard mediante el método de la 
banda de borrado (con la consiguiente aparición de un rectángulo alrededor 
de éstos). Obsérvese que los dos extremos de un segmento determinado deben 
estar dentro del rectángulo para poder ser seleccionados por las opciones Cut 
y Copy. 

Los segmentos del área Clipboard se incorporan sobre un carácter dado 
cuando se selecciona la opción Paste. Esta opción añade los contenidos selec- 
cionados a la ventana de caracteres. Los segmentos puede desplazarse reali- 
zando una operación de arrastre. 

La opción Paste no vacía el área Clipboard; la siguiente operación de 
articulación o pegado de segmentos encontrará los mismos segmentos que 
antes. Las operaciones Cut y Copy siempre cambian los contenidos del área 
Clipboard. La opción Delete actúa de la misma manera que Cut, difiriendo en 
que los segmentos borrados no se añaden al área Clipboard, sino que se 
pierden. La opción Move es similar a la operación combinada de Cut y Paste, 
difiriendo en que los contenidos del área Clipboard no se modifican. 

Los contenidos de este área intermedia pueden someterse a rotaciones si se 
utilizan las Órdenes que se encuentran bajo Edit/Flip; esta opciones permiten 


2 La banda de borrado hace referencia al término descrito como "rubber banding”. (N. del T.) 
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un desplazamiento rápido de los segmentos de arriba abajo (según el eje 
horizontal) o de derecha a izquierda (según el eje vertical). 


Caracteres completos 


Para manipular caracteres completos se incorporan técnicas especiales. 


CopyChar (menú Edit): permite la copia de un carácter almacenado en 
una fuente dada sobre otro, duplicándose los segmentos del carácter 
original. Por ejemplo, una "e" podría servir de base para la creación de 
una "d” sin necesidad de repetir los segmentos utilizados en la primera. 
Flip (menú Edit): permite el desplazamiento rápido de un carácter de 
arriba abajo, de derecha a izquierda, o los dos a la vez. 

Shift (menú Edit): permite desplazar caracteres completos hacia la de- 
recha, hacia la izquierda, arriba o abajo, Por ejemplo, los caracteres b, 
d, p y q normalmente son versiones giradas o reubicadas de algún otro. 
Siempre es posible dibujar uno de ellos y utilizar CopyChar y Flip para 
crear los otros tres. 


Fuentes completas 


Las órdenes que se encuentran bajo el menú Global permiten realizar opera- 
ciones sobre una fuente completa, Generalmente tienen que ver con el espa- 


ciamiento entre caracteres y, a menudo, se utilizan en el proceso de edic 


final de una fuente. 


LeftSpace desplazará todos los caracteres de la fuente para que sus 
laterales izquierdos se encuentren a la distancia especificada del margen 
izquierdo (la línea sólida vertical de la ventana de caracteres). 
ReghtSpace pondrá la marca de espaciamiento de cada uno de los carac- 
teres de la fuente a la distancia especificada del margen derecho, toman- 
do como referencia el segmento que se encuentre más a la derecha de 
cada uno de ellos. 

BaseLine desplazará los caracteres hacia arriba o hacia abajo en la 
misma cantidad para que la línea base corresponda al cero. 

Copy permitirá la selección de otra fuente y la copia de sus caracteres 
desde ésta hacia la actual fuente de trabajo. Muchos de los caracteres, 
tales como los gráficos, no cambiarán de una fuente a otra. La opción 
Copy sortea así el problema de volver a crearlos. 


344 


PROGRAMACIÓN DE GRÁFICOS EN TURBO C++ 


Referencia de las órdenes del editor de fuentes 


En esta sección se describen en detalle las funciones y las órdenes del menú 
del editor de fuentes. 


Load. Carga un archivo de fuentes en el editor. Sobre la pantalla se dibu- 
jará un amplio rectángulo. Existen dos zonas del rectángulo en las que el ratón 
puede actuar: el área de selección de archivos y la línea de impronta de 
archivos. 

La pulsación del botón sobre la línea de impronta de archivos le permitirá 
al usuario cargar un nuevo archivo tras introducir su nombre; el nombre puede 
darse en forma de camino. Si el camino no existiera, el sistema lanzaría un 
iso. Si se confirmara la inexistencia del archivo, éste se crearía y se con- 
vertiría en el archivo de salida por omisión cuando la fuente fuera alma- 
cenada, E : 

El área de selección de archivos contiene una lista de todos los que tienen 
extensión .CHR en el directorio/unidad de disco vigente. A medida que el 
cursor se vaya desplazando sobre estos, los nombres de los archivos irán 
apareciendo sobre la línea de impronta. La pulsación del botón sobre uno de 
estos nombres provocará su selección, quedando preparado para la carga. 


Show. Las herramientas que se encuentran bajo Show se encargan de mos- 
trar la figura de la fuente seleccionada, siendo imposible su modificación, 


Font. Muestra sobre la pantalla todos los caracteres definidos en este 
momento. También permite examinar de forma rápida el espaciamiento 
entre caracteres. El solapamiento de los caracteres o de los huecos entre 
estos nos dará noción de la existencia de errores en el espaciamiento, 


String. Permite introducir una cadena de caracteres para su visualiza- 
ción. A veces es importante visualizar dos caracteres especiales juntos 
para observar el aspecto y el espaciamiento correctos. Cuando una línea 
se completa, la visualización continúa en la siguiente. Para forzar el 
cambio de línea puede pulsarse la tecla de entrada. Téngase en cuenta 
que al llegar a la última línea de edición de la pantalla, no se producirá 
el desplazamiento vertical hacia arriba del resto de las líneas. La tecla 
Escape se utilizará para abandonar el modo String. 


Plotter. Dibuja la fuente actual sobre un trazador gráfico HP. Consul- 
te la sección sobre Hardware Optativo si desea saber algo más sobre la 
conexión con el trazador. 
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Al seleccionar esta herramienta, se solicitará la puerta COM1 o COM2 
para el trazador. El editor de fuentes deberá tener una puerta serie 
configurada para comunicarse con él. Siempre es posible elegir la con- 
figuración dada por el editor de fuentes, esto es, puerta seric de 9600 
baudios, paridad par, 7 bits de datos y un bit de parada (en cuyo caso 
los conmutadores DIP del trazador gráfico deberán estar activos para 
esta configuración), o bien se puede elegir la opción NO para que el 
editor de fuentes se salte este paso. 

Si el editor de fuentes no llevara a cabo el inicio de la puerta serie del 
trazador, entonces el usuario debería ejecutar la orden Mode de DOS 
antes de utilizarlo para que la puerta lo identificara adecuadamente, Por 
lo tanto, antes de utilizar un ratón serie deberían tomarse las precaucio- 
nes necesarias para que no hubiera colisión. 

Por último, se pedirá la confirmación de la salida. Antes de seleccionar 
YES, tenga el papel cargado y el trazador preparado, Si el proceso de 
trazado ha comenzando ya y se desea detenerlo antes de su finalización, 
pulse el botón del ratón y manténgalo así hasta que la pantalla quede 
limpia. El impreso será etiquetado con el mismo nombre del archivo del 
que proviene y con el número de página. 

Si se procesaran varias páginas por documento, el editor de fuentes se 
detendría al final de cada página para permitir una nueva carga de 
papel. 


Exit. Vuelta al menú principal. 


Global. Estas órdenes manipulan fuentes completas, a diferencia del resto, 


que operan sobre caracteres elementales o segmentos. 


LeftSpace. Ajusta el espacio entre el segmento del extremo izquierdo 
de un carácter y la línea de guía vertical que se muestra en la ventana 
de caracteres. Normalmente, este valor debería ser cero para todas las 
fuentes, para que una mantuviera el espaciamiento entre los caracteres 
al conmutar de una a otra. 


RghtSpace. Ajusta la marca de anchura de todos los caracteres con el 
valor indicado. El valor de la anchura de un carácter es el número 
seleccionado del submenú, más el segmento del extremo derecho del 
carácter. Esta posibilidad permite un espaciamiento uniforme entre ca- 
racteres para conseguir una fuente espaciada de manera proporcionada. 
Normalmente, esta posibilidad se utiliza para espaciar de manera pro- 
porcionada toda la fuente. Otros caracteres seleccionados posteriormen- 
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te, tales como los numéricos y los simbólicos que necesitasen la misma 
anchura neta para el correcto encolumnado, se ajustarían de forma indi- 
vidual. 


BaseLine. Ajusta los caracteres de la fuente a la parte superior o a la 
inferior, en la misma cantidad. Esta opción se utiliza sobre la totalidad 
de una fuente para que todas ellas hagan referencia al mismo valor base. 
Por lo tanto, una aplicación que necesite intercambiar fuentes no pre- 
sentará la línea base de la nueva fuente desplazada respecto a la ante- 
rior, 


Copy. Selecciona caracteres procedentes de un archivo de fuentes di- 
ferente. La opción Load permite la selección de un archivo origen de 
fuentes gráficas. 

Al pulsar Copy podrán verse dos cajas de selección de caracteres sobre 
la pantalla; la caja izquierda corresponderá a la fuente origen; la caja 
derecha corresponderá a la fuente con la que se está trabajando. 

Los caracteres se copian individualmente sin más que pulsar el carácter 
deseado de la caja de caracteres origen y luego volver a repetir la 
misma operación sobre el carácter destino de la caja de caracteres de la 
derecha. Para salir, seleccione Done en el menú. 


Exit. Vuelta al menú principal. 


Edit. Proporciona la herramienta necesaria para editar caracteres completos 
o grupos de segmentos. Las funciones Clipboard que se encuentran bajo esta 
introducción son de particular importancia. 


CopyChar. Permite la copia de caracteres dentro de una fuente sin 
más que seleccionar los caracteres origen y destino en la fuente gráfica 
de trabajo. Si el carácter destino ya existiera, entonces se pediría con- 
firmación para reemplazarlo. 


Flip. Permite el desplazamiento rápido, bien del carácter que se está 
manipulando o bien de los contenidos del área Clipboard. Los carac- 
teres se desplazarán dentro del espacio que ocupan. Por ejemplo, si un 
carácter ocupa la posición inferior de su celda, entonces, tras desplazar- 
se verticalmente, sólo ocupará la porción superior de ésta. La opción 
Shift sólo puede utilizarse para modificar las posiciones. Los resultados 
del desplazamiento del área Clipboard no se harán visibles hasta que 
éste se una a la ventana Edit. 
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Shift. Desplaza un carácter, en el tamaño de un punto, en cualquier 
dirección. No modifica el espaciamiento entre caracteres. 


ShowAlso. Superpone cualquier carácter sobre el que está vigente. 
Los segmentos del carácter superpuesto y el marcador de la anchura se 
muestran en rojo en la zona en la que coinciden con el carácter que se 
edita, y en verde en los puntos donde no coinciden. 

El carácter superpuesto permanecerá en la ventana de edición hasta que 
se ejecute la opción Update o hasta que se seleccione un nuevo carácter. 


Clipboard. Contiene todas las herramientas necesarias para trabajar 
con grupos de segmentos. Las opciones Cut, Copy y Paste trabajan 
leyendo y escribiendo un área de memoria intermedia llamada área 
Clipboard. Las opciones Move y Delete no utilizan este área 

Los segmentos del carácter vigente se seleccionan mediante la aplica- 
ción de un rectángulo de banda de borrado. La posición en la que se 
pulsa el botón del ratón define una de las esquinas del rectángulo; la 
esquina diagonalmente opuesta quedará definida en el momento en que 
el botón se suelte, Recuerde, los dos extremos del segmento deben estar 
en el interior del rectángulo para que aquél pueda ser seleccionado. 

En cuanto a Move y Paste, decir que al definir una región, los segmen- 
tos contenidos en ella se copiarán sobre la ventana, a la derecha de la 
marca de anchura del carácter. La esquina superior izquierda de cada 
segmento quedará adherida al cursor del ratón mientras permanezca 
pulsado uno de sus botones, y así permanecerá hasta que se suelte. 


Cut, Borra del carácter vigente los segmentos seleccionados y los 
lleva al área Clipboard. El contenido previo de este área se pierde. 


Copy. Copia los segmentos seleccionados del carácter vigente sobre 
al área Clipboard, sin modificar el primero. El contenido previo del área 
Clipboard se pierde. 


Paste. Copia el contenido del área Clipboard sobre el carácter en pro- 
ceso. El contenido de este área no sufre ningún cambio. 


Move. Desplaza los segmentos seleccionados hacia una nueva posi- 
ción: es equivalente a la secuencia Cut, Paste, permaneciendo inalterado 
el contenido del área Clipboard (si existiera). 
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Delete. Elimina los segmentos seleccionados del carácter en proceso; 
es equivalente a Cut, difiriendo en que el contenido del área Clipboard 
queda sin modificar. 


Exit. Vuelta al menú Edit. 
Exit. Vuelta al menú Main. 


Save. Escribe los datos de la fuente vigente sobre un archivo de salida. La 
opción Save funciona de manera similar a la orden Load, esto es, trazando un 
amplio rectángulo sobre la pantalla con dos áreas de posible actuación del 
ratón: el área del selector de archivos y la línea de impronta de archivos. 

La pulsación del botón sobre la línea de impronta de archivos permite la 
introducción de un nuevo nombre de archivo, pudiendo ser éste un nuevo 
camino. Si el nombre del archivo no existiera se recibiría un aviso. En caso 
de confirmarse la inexistencia del archivo, este sería creado. 

El área de selección de archivos contiene una lista de todos los archivos 
de la unidad/directorio en proceso que tienen la extensión .CHR. El cursor del 
ratón puede moverse libremente sobre esta lista, por lo que cada uno de los 
nombres de los archivos se visualizarán sobre la línea de impronta. La pulsa- 
ción del botón sobre uno de estos nombres provocará su selección inmediata. 


Window. Controla la visualización de la ventana de edición de caracteres. 
Estas opciones no modifican los caracteres, sólo la forma en que se muestran. 

Los valores por omisión se muestran automáticamente cuando se produce 
la carga del archivo de fuentes. Si la llamada al editor se produce sin una 
selección previa de un archivo de fuentes (soslayando la opción Load) enton- 
ces los valores activos serán los de la fuente anterior. 


Zoom Out. Reduce la ampliación utilizada para mostrar el carácter en 
la ventana de edición. Al cargar el archivo de fuentes, la ampliación se 
activará automáticamente con un valor tal que permita la visualización 
del carácter con el máximo tamaño posible, 


Zoom In. Incrementa el factor de ampliación utilizado para la visua- 
lización del carácter. 

El factor de ampliación puede incrementarse de forma que los carac- 
teres sobrepasen el tamaño de la ventana (las partes que queden fuera 
de la ventana se recortarán en los límites de ésta). Esto es muy útil 
cuando se trabaja con letras minúsculas o con los segmentos que carac- 
terizan las fuentes serif. 
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Origin. Permite ubicar la línea de guía origen en cualquier posición 
de ventana de edición. 

Para la mayor parte de las fuentes, ésta se dibuja bajo la guía de la 
línea base, y no es visible; sin embargo es posible desplazarla. Le su- 
gerimos que mueva la guía origen hacia la parte superior de la ventana 
y genere una ampliación para trabajar con los segmentos inferiores, o 
bien que mueva la guía origen hacia la parte inferior de la ventana para 
trabajar con letras mayúsculas. 


d-ht. Pone la guía de altura mínima en la ventana de edición de ca- 
racteres. Esto no afecta al carácter, a su edición, ni a su visualización 
sobre la ventana. Simplemente, es conveniente. 


b-ht, Pone la guía de altura de la línea base en la ventana de edición 
de caracteres. Esto no afecta al carácter, a su edición, ni a su visualiza- 
ción sobre la ventana. Simplemente, es conveniente. 


x-ht. Pone la guía, con la altura de la x (altura de las minúsculas), en 
la ventana de edición de caracteres. Esto no afecta al carácter, a su 
edición, ni a su visualización sobre la ventana. Simplemente, es conve- 
niente. 


c-ht. Pone la guía de altura de los caracteres (altura de mayúsculas) 
sobre la ventana de edición. Esto no afecta al carácter, a su edición, ni 
a su visualización sobre la ventana. Simplemente, es conveniente, 


ShowMovs. Muestra cada secuencia move, draw, draw)... en un color 
diferente con objeto de tener una noción más clara de la manera en que 
va modelando el carácter. La secuencia de colores muestra el orden en 
que se han ido generando los segmentos. 

Esta opción está inactiva por omisión. Su activación puede producir 
resultados inquietantes en el momento de realizar los trazos sobre la 
ventana de edición. No se recomienda su utilización (aunque es intere- 
sante, por lo llamativo). 


Grid. Muestra la retícula de puntos en la que pueden empezar y aca- 
bar los segmentos del carácter que se edita. Esta opción está activa por 
omisión. 


Exit. Vuelta al menú Main. 
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Quit. Provoca el retorno a DOS; se solicitará la posibilidad de guardar las 
ediciones. 


Creación de una fuente nueva desde el principio 


En este apartado se apuntarán varios aspectos que deberán tenerse en cuenta 
cuando se desee crear una nueva fuente desde el principio. Para crear una 
fuente nueva deberá llamarse al editor de fuentes y seleccionarse un nombre 
de archivo para ésta, La pantalla mostrará una ventana sin caracteres definidos 
(las posibles elecciones de caracteres se mostrarán en rojo). Los cuatro pará- 
metros globales necesarios para la fuente los calcula automáticamente el edi- 
tor al cargar o guardar una de ellas. Estos parámetros son la altura base, la 
altura máxima, la altura mínima y la altura de las minúsculas (o altura x). Sus 
valores se obtienen al examinar los caracteres que un tipógrafo utilizaría para 
obtener la misma información. 


Altura máxima. Este valor se determina al examinar el carácter É (deci- 
mal 144), Este es el carácter europeo más alto. Si este carácter no estuviera 
definido' entonces se utilizaría la M como referencia para la altura de las 
mayúsculas. Si no estuviera definido ninguno de los dos, el valor por omisión 
sería 40 (de un máximo de +/- 64). 


Altura base, Este valor se determina al examinar el carácter É o, en su 
defecto, la M mayúscula. Este valor se utiliza como origen de las otras tres 
dimensiones. Si no estuviera definido ninguno de los dos, el valor por omisión 
sería 0 (de un máximo de +/- 64). 


Altura mínima. Este valor se determina al examinar la letra minúscula q. 
Si la q no estuviera definida, el valor por omisión sería -7 (de un máximo de 
+/- 64). 


Altura de las minúsculas (o altura x). Este valor se determina al exa- 
minar la letra minúscula x. Si la minúscula x no estuviese definida, el valor 
tomado por omisión sería el de la Altura Máxima dividida por dos. 

Para definir el tamaño y la ubicación de los caracteres en la fuente, lo 
mejor es definir en las primeras posiciones los caracteres, "M", "q", "x" y É 
(si así se desea). La siguiente vez que se cargue la fuente se utilizarán las 
dimensiones de estos caracteres para definir el tamaño y la posición de la 
ventana de caracteres para esta fuente. 

Si se estuviera definiendo una fuente de símbolos especiales, estos pará- 
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metros podrían ser o no relevantes; sin embargo, en la mayoría de los casos 
debería definirse, como mínimo, la altura base. 


Uso de fuentes gráficas a medida 


Las fuentes originales suministradas con Turbo C++ ( Turbo Pascal) son 
funciones agregadas a la biblioteca gráfica BGI. A diferencia de las fuentes 
originales, las fuentes creadas por el usuario (y las cinco nuevas fuentes 
suministradas con el editor de fuentes Turbo) no pueden seleccionarse direc- 
tamente, por lo que deben ser incorporadas primero a la tabla de fuentes 
internas. 

La función installuserfont (versión 2.0 de Turbo C++ o posteriores) ha sido 
incorporada con este propósito. Esta función devuelve el número de identifi- 
cación de la fuente; este número podrá ser utilizado posteriormente por set- 
textstyle para proceder a tal identificación. 

El programa demostración NUEVASFU.C (al final de este capítulo) instala 
las cinco nuevas fuentes suministradas con el editor de fuentes Turbo e im- 
prime un breve mensaje en la pantalla con cada una de ellas (consulte la 
Figura 15-4). 


Figura 15-4 Nuevas fuentes de caracteres gráficos 


9 ABCUEFGHUKL Large 


8 ABCDEFGHIJKL Roman 
7 ABCDEFGHIJKL Italic 
6 ABCDEFGHUKL Simplex 

5 ABCLEFOHSINL Boipl 


Identificación de las fuentes 


Las fuentes originales se identifican por medio de constantes del archivo de 
cabecera GRAPHICS.H. Por motivos de interés y para aportar compatibilidad, 
las fuentes nuevas también se identificarán por medio de nombres pero, al no 
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existir ninguna constante de biblioteca para ellas, estos nombres se declararán 
como variables con valores iniciales iguales a 0. 


int LARGE_FONT = 0, /* EURO.CHR -- instal. requerida */ 
ROMAN_FONT = 0, /* LCOM.CHR -- instal. requerida */ 
SIMPLEX_FONT = 0, /* SIMP.CHR -- instal. requerida */ 
ITALIC_FONT = 0, /* TSCR.CHR -- requerida */ 


SCRIPT_FONT :=-07 /* SCRI.CHR.-= requerida */ 


La utilidad InstalaTipo 


Como siempre existe la posibilidad de que el archivo .CHR de una fuente que 
se solicita exista, se puede hacer uso de una función muy sencilla: InstalaTipo. 

InstalaTipo se llama con el camino/nombre del archivo de la fuente desea- 
da y devuelve un entero que la identifica dentro de la tabla de fuentes internas. 
Si el archivo .CHR de una fuente determinada no fuera localizado, InstalaTipo 
mostraría un mensaje y, en vez de devolver un código de error negativo, 
devolvería el valor cero, a la postre más fácil de examinar (como valor boo- 
leano) que el código de error gráfico. 


int InstalaTipo( char *nombretipo ) 


AS 
int NumeroTipo; 
NumeroTipo = installuserfont( nombretipo ); 
if( NumeroTipo == 0 ) 
t /* sacar el mensaje de error en la pantalla */ 
return( 0 ); 
y 
else return( NumeroTipo ); 
J 


Carga de varias fuentes 


Si se necesitase más de una fuente, el método más sencillo consistiría en 
asignar todas las fuentes necesarias a la vez. Los valores enteros devueltos se 
asignarían a sus correspondientes nombres de variables (LARGE_FONT, RO- 
MAN_FONT, etc.). 

Esto no exige un gasto excesivo de memoria. Sólo se instalan los nombres 
de las fuentes; la información propia de las fuentes se cargará en memoria 
sólo cuando éstas hayan sido asignadas por medio de la función settextstyle. 
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void CargaTipos() 


t 


LARGE_FONT 
ROMAN_FONT 
ITALIC_FONT 
SCRIPT_FONT 
SIMPLEX_FONT 


InstalaTipo( "EURO.CHR" ); 
InstalaTipo( "LCOM.CHR" ); 
InstalaTipo( "TSCR.CHR" ); 
InstalaTipo( "SCRI.CHR" ); 
InstalaTipo( "SIMP.CHR" ); 


Así de corto y sencillo es esto. Entre el editor de fuentes Turbo y los 
procedimientos de utilidad anteriores existe todo un mundo de posibilidades 
para pantallas especiales y otro mundo de propiedades gráficas. 


Formato del archivo de segmentos BGI 


La estructura del archivo .CHR de Borland (fuentes segmentadas) comienza 
con un cabecero en la posición de desplazamiento 00h: 


HeaderSize equ 080h 

DataSize equ (tamaño del archivo de fuentes) 

descr equ "Fuente Triplex” 

fname equ "TRIP" 

MajorVersion equ 1 

MinorVersion equ 0 

db "PK',8,8 

db 'BGl',descr,'V' 

db MajorVersion + '0' 

db (MinorVersion /10) + '0”, (MinorVersion mod 10) + '0' 

db '-19 Octubre 1987', ODh, OAh 

db 0,1Ah ; null y ctr-Z = fin 

dw HeaderSize ; tamaño del cabecero 

db fname ; nombre de la fuente 

dw DataSize ; tamaño del archivo de la fuente 
db MajorVersion, MinorVersion ; números de versión 

db 1,0 ; números de la versión mínima 
db (HeaderSize - $) DUP (0) ; relleno hasta el tamaño 


del cabecero 


Los datos del archivo comienzan en la posición de desplazamiento 80h: 
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80h Y 
81h-82h 

83h 

84h 

85h..86h 


87h 
88h 
89h 
90h 
91h..95h 
96h 


96h+2n 
96h+3n 


Señala el tipo de archivos de segmentos. 

Número de caracteres del archivo de fuentes(n). 

Sin definir. 

Valor ASCII del primer carácter del archivo. 

Desplazamiento a las definiciones de los segmentos 
(8+3n). 

Señal de rastro (habitualmente 0). 

Distancia del origen a la parte superior de la mayúscula. 

Distancia del origen a la línea base. 

Distancia al origen a la parte inferior de la minúscula. 

Sin definir. 

Desplazamientos a las definiciones de caracteres 
individuales. 

Tabla de anchuras (una palabra por carácter). 

Comienzo de las definiciones de los caracteres. 


Las definiciones de los caracteres individuales constan de un número va- 
riable de palabras que describen las operaciones necesarias para interpretar 
cada uno de ellos. Cada palabra consta de un par coordenado (xy) y de un 
código de operación de dos bits, según se indica en las Tablas 15-2 y 15-3. 


Tabla 15-2 Códigos de operación extendidos 


Octeto 1 


Octeto 2 


y 6..5.4,.3..2..1,.0 1% bit 
opl <coordenada x de 7 bits con signo> 
7 6..5..4..3..2..1,.0 12 bit 
op2 <coordenada y de 7 bits con signo> 


Tabla 15-3 Códigos de operación 


op2 Significado 

0 Fin de la definición del carácter 

0 Desplazar el puntero a (x,y) 

1 Dibujar desde la posición del puntero hasta (xy) 
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Hifdef 


terror La demostración no funciona si se compila 


NUEVASFU.C 
Nuevos tipos de caracteres alfabéticos 


TINY 
en el 
modelo TINY. 


ttendif 

ttinclude <conio.h> 

ftinclude <stdio.h> 

ttinclude <stdlib.h> 

Htinclude <stdarg.h> 

ttinclude <graphics.h> 

Htinclude "gprint.i" 

Htinclude <fcntl.h> 

int ControladorGrafico; 

int ModoGrafico; 

int MaxColores; 

int CodigoError = 0; 

int LARGE_FONT = 0, /* EURO.CHR -- instal. 
ROMAN_FONT 0, ¿* LCOM.CHR -- instal. 
SIMPLEX_FONT = 0, /* $S instal. 
ITALIC_FONT =0, /* TSCR. => insta requer 
SCRIPT_FONT = 0; /* SCRI.CHR -- stal. requ 

void Iniciar() 

t 

ControladorGrafico = DETECT; 


initgraph( £ControladorGrafico, SModoGrafico, 
"CENNTCNABOI" )7 


CodigoError = graphresult (); 
if ( CodigoError != gr0k ) 
1 


printf(" Error en el Sistema de Gráficos: %sin", 
grapherrormsg( CodigoError ) ); 
exit( 1 ); 
J 


MaxColores = getmaxcolor() + 1; 


ei 
hs) 
me 
E 
«7 


PROGRAMACIÓN DE GRÁFICOS EN TURBO C++ 


void Pausa() 

1 
if( kbhit() ) getch(); 
getch(); 

J 


int InstalaTipo( char *nombretipo ) 
1 
int NumeroTipo; 


NumeroTipo = installuserfont( nombretipo ); 
if( NumeroTipo <= 0 ) 
1 
return( 0 ); 
5d 
else return( NumeroTipo ); 


) 

void PresentaAlfabeto( int tipo, int vpos, char *nombre ) 
ánt x= 50; 
settextstyle( tipo, HORIZ_DIR, 4 ); 
gprintf( £x, £vpos, "ABCDEFGHIJKL %s8", nombre ); 


) 


void CargaTipos() 
t 


LARGE_FONT = InstalaTipo( "EURO.CHR" ); 
ROMAN_FONT = InstalaTipo( "LCOM.CHR" ); 
ITALIC_FONT = InstalaTipo( "TSCR.CHR" ); 
SCRIPT_FONT = InstalaTipo( "SCRI.CHR" ); 
SIMPLEX_FONT = InstalaTipo( "SIMP.CHR" ); 


J 


void MuestraNuevosTipos() 
t 
CargaTipos (); 
setcolor (WHITE); 
settextjustify( LEFT_TEXT, TOP_TEXT ); 
PresentaAlfabeto( LARGE_FONT, 20, arge" di 
PresentaAlfabeto( ROMAN_FONT, 80, "Roman" di 
PresentaAlfabeto( ITALIC_FONT, 120, "Italic" ); 
di 
3 


PresentaAlfabeto( SCRIPT_FONT, 160, "Script" 
PresentaAlfabeto( SIMPLEX_FONT, 200, "Simplex" 
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main() 


t 


Iniciar(); 
cleardevice(); 
MuestraNuevosTipos (); 
Pausa(); 
closegraph(); 


Tercera parte 


Gráficos orientados a objetos 
en Turbo C++ 


La programación orientada a objetos está íntimamente relacionada con los 
gráficos. Los objetos aportan posibilidades gráficas nuevas y poderosas que 
podrían ser demasiado complejas de incluir desde el punto de vista de la 
programación convencional, en la mayor parte de los programas. 

En la Tercera parte, se creará una gran variedad de objetos gráficos, desde 
un interfaz para el objeto ratón que permita el desplazamiento sobre los obje- 
tos de tipo botón en la pantalla, hasta las barras de desplazamiento y los 
iconos interactivos. 

Se mostrarán programas de utilidad; entre ellos se incluyen RATONPTR, 
un editor gráfico de punteros de ratón que permite el diseño interactivo de 
punteros a medida, e ICONEDIT, que proporciona un método para diseñar 
imágenes de iconos en color. Otros programas de demostración permitirán 
ilustrar el uso de los distintos objetos gráficos. 

Este libro no constituye una introducción a la programación orientada a 
objetos. Los siguientes capítulos no se presentan como un libro de iniciación 
a las prácticas de programación en C++. En caso de no estar familiarizado con 
la programación orientada a objetos y necesitar instrucciones más completas 
para las prácticas en C++, se aconseja la lectura del libro Turbo C++ Pro- 
gramming, An Object-Oriented Approach de la editorial Addison-Wesley. Es- 
te libro le ¡lustrará ampliamente en la programación orientada a objetos y le 
mostrará distintas variantes y explicaciones más detalladas de los distintos 
programas incluídos en esta sección. 


16 


El objeto ratón gráfico 


El dispositivo de entrada de datos asociado a una pantalla gráfica (excepto en 
los gráficos de texto) suele ser el ratón, como mecanismo de selección prin- 
cipal, y las teclas del cursor como dispositivo secundario. 

Existen dos alternativas al uso de un ratón: primera, leer los códigos de 
salida del ratón e identificarlos con las teclas del cursor, y segunda, incorporar 
directamente un interfaz de ratón en el programa e interpretar los sucesos 
provocados por éste directamente. 


Lectura de los sucesos del ratón con las teclas del cursor 


Este método utiliza el interfaz por omisión del ratón (MOUSE.COM o el 
controlador MOU SE. SYS) que se suministra con el hardware de éste y no 
necesita una atención especial por parte del programador. Cuando el ratón se 
mueve hacia la izquierda, el sistema recibe los códigos (códigos de captación 
y de caracteres) 00h, 48h, de la misma forma que si se hubiera pulsado la tecla 
de la flecha a la izquierda. De forma similar, el bótón izquierdo del ratón 
devuelve el mismo código (0Dh) que se genera al pulsar la tecla Enter del 
teclado, 

Sin embargo, con el ratón de Logitech (y con otros muchos), estos códigos 
de respuesta de las teclas pueden reasignarse o incluso interpretarse como 
instrucciones de tipo macro (consulte el manual del ratón para más detalles); 
en este caso es difícil asegurar que los valores devueltos por el software del 
ratón coincidan con las respuestas apropiadas o al menos con las deseadas. 
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Un interfaz del objeto ratón 


Para la mayoría de las aplicaciones gráficas, la interpretación indirecta de la 
entrada generada por un ratón (tratando el ratón de manera similar al teclado) 
es imposible o insatisfactoria por diversos motivos: el desplazamiento del 
ratón y las respuestas de las teclas puede que no estén asignados correctamen- 
te: la información devuelta es menos completa que la leída directamente desde 
el ratón; el control ejercido sobre los parámetros del ratón es pequeño o nulo; 
por último, el bucle temporizador del programa puede llegar a producir dema- 
siado retardo en respuesta al desplazamiento del ratón. 

Por estos motivos, la mayoría de las aplicaciones gráficas buscan un inter- 
faz directo con el dispositivo ratón que permita al programa cargar sus pará- 
metros y leer directamente los sucesos y la posición de éste. 

Pero para asumir el control directo y la comunicación con el ratón, la 
aproximación óptima consiste en crear un objeto ratón que proporcione los 
procedimientos para: 


M restringir el desplazamiento del ratón a una zona determinada en la 
pantalla, 

Ml leer directamente la posición de pantalla en la que se encuentra el ratón. 

Ml cambiar los factores de respuesta del ratón y ajustar el desplazamiento 
vertical y horizontal de éste a los factores de desplazamiento de la 
pantalla. 

Ml leer las teclas del ratón para generar sucesos y para interrumpirlos, y 
examinar el estado de cada pulsación individual. 

M seleccionar los cursores del ratón gráfico o crear cursores nuevos. 

ML ocultar o mostrar de forma selectiva el cursor del ratón. 


La mayor parte de estas propiedades se muestran en el programa RA- 
TONPTR.CPP de este capítulo, 


Tipos de ratones 


El interfaz del objeto ratón se suministra en forma de archivo de inclusión. 
RATON.I, en este capítulo. Este procedimiento de interfaz de ratón puede 
utilizarse tanto en aplicaciones de texto como gráficas, 

Para comenzar, en la actualidad existen dos tipos básicos de ratones: el 
ratón de Microsoft (de dos botones) y el ratón de Logitech (de tres botones). 
Existe una gran cantidad de ratones bajo diversas marcas registradas, pero la 
mayoría de ellos se ajustan a uno de los dos estándares. 

El ratón básico de Microsoft admite 16 funciones (0-15) y tiene dos boto- 
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nes con capacidad, cada uno de ellos, para dar una respuesta de creación e 
interrupción, o bien para ser leídos cuando estén pulsados o libres de pulsa- 
ción. El ratón de Logitech admite todas las características del ratón de Micro- 
soft, e incorpora dos funciones de ratón nuevas (funciones 16 y 19) y un tercer 
botón (en medio). 

Los procedimientos almacenados en RATON.I incorporan tanto las funcio- 
nes del ratón de Microsoft con las del ratón de Logitech. El programa RA- 
TONPTR.CPP es capaz de trabajar con cualquier tipo de ratón, aun cuando el 
tercer botón y las funciones 16 y 19 no sean admitidas por todos los ratones 
de Microsoft. 

Las últimas versiones de controladores de ratones, tanto de Microsoft co- 
mo de Logitech, han incorporado nuevas funciones de interrupción y posibi- 
lidades especiales, pero ninguna de ellas se constituye en imprescindible, por 
lo que no se incluyen aquí. 

Estos procedimientos de ratón presuponen la presencia de dos elementos: 
un ratón físico y un Controlador de dispositivo de ratón, ambos suministrados 
por el vendedor del ratón. El ratón físico puede ser un ratón serie o en bus, 
mientras que el controlador del dispositivo puede ser bien MOUSE.COM o 
bien MOUSE.SYS (normalmente, ambos se suministran con cada ratón). 

Cuando Vd, cree una unidad objeto para el uso propio o para distribuirlo 
entre otros interesados, resultarán de gran ayuda los listados documentados 
sobre las funciones disponibles a través de la unidad, los parámetros necesa- 
rios para llamar a estas funciones y las estructuras de datos utilizadas por la 
unidad objeto y disponibles para el programa que lanza la llamada. En el 
apéndice B se muestra documentación sobre la unidad RATON.I. 


El caso del ratón vergonzoso 


Si se utilizan resoluciones gráficas tipo VGA o superiores y se observa que 
el puntero del ratón no aparece en la aplicación gl 1, puede que el proble- 
ma tenga su origen en el controlador del ratón; la solución será instalar un 
controlador más moderno, Este problema puede examinarse con la orden set- 
graphmode de Turbo C++ seleccionando un modo gráfico de menor resolu- 
ción. 

Por ejemplo, si se utilizan gráficos VGA con una resolución vertical de 
480 pixels, el cursor del ratón gráfico no aparecerá sobre la pantalla, pero al 
utilizar la orden setgraphmode(1) para seleccionar los gráficos VGA de reso- 
lución intermedia, con una resolución vertical de 350, el cursor reaparecerá. 
Si así sucede, póngase en contacto con Microsoft, Logitech o con su provee- 
dor para conseguir una nueva versión del controlador, o compre uno de los 
nuevos ratones "HiRes" (alta resolución). La versión 4.0 del controlador del 
ratón de Logitech, o posteriores. admiten todas las resoluciones VGA. 
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Uso del archivo de inclusión de un objeto 


Los archivos de inclusión de objetos se llaman de la misma forma que los 
archivos de inclusión convencionales: 


ikinclude "raton.i" 


Por convención, durante la declaración "include" se utilizarán las comillas 
en lugar de los familiares corchetes angulares para designar un archivo biblio- 
teca de usuario (a diferencia de un archivo de cabecera que como se sabe, 
hace referencia a una biblioteca que viene ya suministrada). Pero esta conven- 
ción no es inflexible, ni debe interpretarse como una forma de evitar el uso 
de los corchetes angulares en lugar de las comillas. 

Existen otras diferencias. Por una parte, los procedimientos de los objetos 
no son accesibles de forma directa, sino que deben ser referidos a través de 
ocurrencias específicas de estos que, de forma habitual, se declaran en el 
programa principal o en los subprocedimientos que los utilizan. 

Los archivos de inclusión de objetos pueden contener, a menudo, defini- 
ciones de estructuras, constantes o incluso ocurrencias de objetos (RATON.I 
incluye las ocurrencias definidas en GRaton y TRaton) de uso general en 
todas aquellas aplicaciones que las vayan a programar. 

Las definiciones de los tipos declarados en RATON.I están a disposición 
de todas las aplicaciones que vayan a utilizar esta unidad: 


typedef struct 
í unsigned flag, 
boton, 
ejex, ejey; 
) evento_raton; 


typedef struct 
f unsigned int 
MascaraPantalla[16], 
MascaraCursor[16], 
xCor, ycor; 
) g_cursor; 


¿Dos o tres botones? 


El objeto ratón es compatible con todos los ratones con dos o tres botones, 
sin más que definir los tres: 
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define BotonlI 0; 
ftdefine BotonD 1; 
itdefine BotonM 2; 


Si Vd. ha trabajado con OS/2 Presentation Manager, habrá observado que 
los botones del ratón están definidos como 1-2-3, de izquierda a derecha (con 
una opción del sistema para invertir el orden en favor de los zurdos). El orden 
convencional de los botones del ratón, sin embargo, comenzó cuando los 
ratones de las computadoras sólo tenían dos botones (izquierdo y derecho, 
aunque algunos sólo tenían uno), por cuanto el tercer botón (en el medio) no 
funciona y está numerado con un 2. Para ratones con dos botones, el tercero, 
el del medio, no está disponible. Para poner el cursor en modo texto, se 
proporcionan dos nuevas constantes de uso general: SOFTWARE y HARD- 
WARE. 


fidefine SOFTWARE 0; 
iidefine HARDWARE 1; 


También son de gran importancia las siguientes constantes: 


itdefine FALSO 0 
iidefine VERDAD 1 
iidefine OFF 0 
itdefine ON 1 


Cursores del ratón gráfico 


Las imágenes del cursor del ratón gráfico constan de dos imágenes de bits 
(una máscara de la pantalla y una máscara del cursor), siendo cada una un 
array de 16 por 16 pixels que se combina con la imagen ya existente en la 
pantalla gráfica, tal como se muestra en la Tabla 16-1. 


Tabla 16-1 Efectos de la máscara del cursor y de la pantalla 


Bit de máscara Bit de máscara 

de pantalla del cursor Bit de pantalla 

0 0 0 

0 1 1 

1 0 NO AFECTADO 
1 


INVERTIDO 
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Figura 16-1 El cursor flecha gráfica 


A la izquierda, el cursor gráfico por omisión 
(Flecha) se hace coincidir con el fondo. Si 
contrastara con éste, sólo aparecería la 
imagen de la máscara del cursor 


Abajo (de izquierda a derecha), se muestran 
separadas la máscara de la pantalla y la 
máscara del cursor. 


Máscara de la pantalla Máscara del cursor 


La imagen de la máscara de la pantalla sufrirá una operación de AND con la 
imagen que ya existe en la pantalla antes que la imagen de la máscara del cursor 
sea operada en XOR con el resultado. Esto nos asegura que el puntero del cursor 
será visible sobre cualquier fondo. Al mismo tiempo, la imagen que ya existe sobre 
la pantalla se verá protegida (cuando el cursor gráfico se desplace u oculte) y 
restaurada sin sufrir cambios, 


Las aplicaciones que vayan a utilizar el ratón gráfico disponen de cinco 
cursores predefinidos. El cursor Flecha (consulte la Figura 16-1) es una flecha 
inclinada en ángulo similar al cursor gráfico por omisión. El cursor Marca es 
una marca con el punto de mira en la base del ángulo. El cursor Cruz es un 
círculo con el punto de mira marcado por dos flechas cruzadas. El cursor 
Guante es la imagen de una mano con el punto de mira en la punta del dedo 
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índice y, por último, el cursor Viga "I" que es un doble de la popular barra 


vertical. 


Todas las imágenes del cursor gráfico están a disposición de las aplicacio- 
nes que utilizan el ratón, y se definen así: 


static y_cursor 


fl Ox1FFF, 
Ox01FF, 
Ox001F, 
OXEOFF, 
0x0000, 
0x7800, 
0x7F80, 
0x0600, 
1, 


OXOFFF, 
Ox00FF, 
0x003F, 
OXFOFF, 
0x4000, 
0x7C00, 
0x7C00, 
0x0300, 


pe Y; 


FLECHA 


0x07FF, 
0x007F, 
OXx01FF, 
OXF8FF, 
0x6000, 
0x7E00, 
0x4C00, 
0x0300, 


Ox03FF, 
0x003F, 
Ox01FF, 
OXF8FF, 
0x7000, 
Ox7F00, 
0x0600, 
0x0000, 


//máscara pantalla 


/ (máscara cursor 


// coordenadas del punto de mira 


El programa RATONPTR crea un archivo de texto ASCIL (con este mismo 
formato) que puede ser incorporado directamente en cualquier listado de pro- 
gramas Turbo C o C++, o añadido a los listados fuente de cualquier unidad 


RATON. 


Las definiciones de los objetos 


Las definiciones de los objetos comienzan con un tipo general de objeto ratón, 
Raton, que contiene 14 procedimientos miembros: 


class Raton 


( 


int Rvisible; 


protected: 
Raton(); 
-Raton(); 

public: 


static evento_raton far 


Rmovimiento *Rcambio(); 
*Riniciar(); 


Rresultado 
Restado 
Restado 
Restado 


Rpos (); 


*Reventos; 


Rpulsado( int boton ); 
Rliberado( int boton ); 
void Rmuestra( int presente ); 
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void Rsitua( int ejex, int ejey ); 

void Rlimitex( int min_x, int max_x ); 

void Rlimitey( int min y, int max_y ); 

woid Rrelacion_paso( int dimx, int dimy ); 

void Rvelocidad( int velocidad ); 

void Roculto( int izquierda, int arriba, 
int derecha, int abajo ); 


El tipo de objeto Raton es el tipo de objeto base que contiene procedi- 
mientos comunes a todos los objetos ratón. Observe, sin embargo, que el 
objeto Raton no contiene elementos de datos, a diferencia de la mayor parte 
de los ejemplos de objetos vistos hasta aquí (sólo contiene procedimientos que 
devuelven estructuras de datos). Además, el objeto Raton no tiene un uso 
indicado para cualquier aplicación. Por ello se declaran dos tipos de objetos 
derivados que serán utilizados a lo largo de las aplicaciones. El primero es el 
tipo de objeto GRaton (que incorpora tres nuevos procedimientos, uno privado 
y dos públicos, específicos de las aplicaciones con ratón gráfico): 


class GRaton : public Raton 
t 
private: 
void pon_cursor( int ejex, 
int ejey, 
unsigned Seg_mascara, 
unsigned Desp_mascara ); 
public: 
void Pon Cursor( g_cursor EsteCursor ); 
void Rbrillante( int puesto ); 


El tipo de objeto TRaton (ratón de texto) también desciende del tipo Raton 
e incorpora dos procedimientos específicos del texto: 


class TRaton : public Raton 
( 
public: 
void Pon_Cursor( int tipo_cursor, 
unsigned s_inicio, 
unsigned s_fin ); 
woid Rbrillante( int puesto ); 
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Ambos tipos de objetos (GRaton y TRaton) incorporan los procedimientos 
Rbrillante para dar apoyo a las raras, pero todavía existentes, aplicaciones que 
necesitan el soporte de los lapiceros ópticos para el desarrollo gráfico o de 
texto. 


Desarrollo de los procedimientos 


Los procedimientos definidos en las declaraciones de objetos necesitan un 
desarrollo específico, esto es, un código específico así como tipos, constantes, 
variables, procedimientos locales o funciones, privados todos ellos y por lo 
tanto no disponibles de forma directa por la aplicación que utiliza el objeto: 


Raton() 
-Raton() 


Raton 
Raton 


El objeto Raton se suministra con procedimientos constructores y destruc- 
tores siendo estos los primeros procedimientos en desarrollarse, incluso aun- 
que ninguno de los anteriores haya sido provisto de código. Sin embargo, 
estos desarrollos deben conocerse, bien aquí o bien en la declaración, antes 
de compilar el objeto. 


La función Riniciar 


Los desarrollos del objeto Raton comienzan con el procedimiento Riniciar, 
éste llama al controlador del ratón, le restituye sus condiciones iniciales y 
devuelve un argumento sobre su estado en el registro AX (-1 si el raton está 
presente, O si no está presente). El argumento se examina y, si el ratón está 
presente, el cursor de éste se activa. 

El registro BX devuelve el total de botones (2 ó 3) del ratón y ambos 
resultados se devuelven en la estructura de datos Rresultado, 


Rresultado *Raton::Riniciar() 


t 
static Rresultado m; 


Rvisible = OFF; 

inreg.x.ax = 0; 

llamada_raton; 

m.presente = outreg.X.ax; 

m.botones = outreg.xX.bx; 

if( m.presente ) Rmuestra( VERDAD ); 
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return ( “m ); 


El procedimiento Rmuestra 


El procedimiento Rmuestra se utiliza para activar y desactivar el cursor del 
ratón mediante llamadas de las funciones 1 y 2 de éste, respectivamente. 

En el momento en el que se produzca la actualización de la pantalla en una 
determinada zona que contenga el cursor del ratón, éste deberá desactivarse 
antes que aquélla vuelva a pintarse; a continuación deberá volver a activarse. 
En caso contrario, los efectos pueden llegar a ser sorprendentes o posiblemen- 
te indeseables. Si desea ver ejemplos causados por omisión, observe el cuerpo 
de este procedimiento y luego ejecute el programa RATONPTR: 


void Raton::Rmuestra( int presente ) 


ps 
if( presente ) 
t 
inreg.x.ax = 1; // función 1 del ratón 1 
// muestra el cursor del ratón // 
if( !Rvisible ) llamada_raton; 
Rvisible = ON; 
) 
else 
t 
inreg.x.ax = 2; // función 2 del ratón // 
if( Rvisible ) llamada_raton; // esconde el cursor // 
// del ratón AY 
Rvisible = OFF; 
dl 


Las funciones 1 y 2 del ratón se han combinado en un único procedimiento 
por comodidad y seguridad, aspectos de los que carecían las funciones origi- 
nales. En las funciones originales, distintas llamadas de ocultación del cursor 
del ratón requerían otras tantas llamadas para restituírlo (y viceversa). Sin 
embargo, Rmuestra permite que las funciones de ocultación y muestra del 
cursor sólo sean llamadas una vez, asegurando de esta forma que la inversión 
del estado del cursor dependa de una única llamada. 

Observe que la ocultación del cursor del ratón no afecta a las operaciones 
de arrastre ni a las de botón (la posición del ratón se desplaza aún siendo 
invisible). 
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El procedimiento Rpos 


El procedimiento Rpos informa de la posición del cursor del ratón y del 
estado de sus botones. Las coordenadas de posición siempre se proporcionan 
en pixels. 

El elemento estado_boton (de Restado) es un valor entero que guarda en 
los tres bits menos significativos el estado de los botones izquierdo, derecho 
y. si existe, el central. Estos bits de estado_boton (comenzando con el bit 0) 
se activarán cuando los botones estén pulsados y se desactivarán cuando estos 
queden libres de pulsación. 


Restado Raton: :Rpos() // devuelve un puntero a la 
// estructura Restado con la 

t 1/1 la po n del cursor y 
/1 y el estado del botón 


static Restado m; 


inreg.x.ax = 3; // función 3 
llamada_raton; 

m.estado_boton = outreg.x.bx; // estado de 
m.ejex = outreg.X.Ccx; // coordenada x 
m.ejey = outreg.x.dx; // coordenada y 


return (m); 


El procedimiento Rsitua 


El procedimiento Rsitua se utiliza para desplazar el cursor del ratón hacia una 
posición determinada de la pantalla. Las coordenadas utilizadas siempre son 
coordenadas absolutas de pantalla expresadas en pixels. En los modos de texto 
siguen utilizándose las coordenadas de pixels, aunque en realidad acaban sien- 
do redondeadas a la posición de la celda de caracteres más próxima a la 
indicada por sus valores (por ejemplo, con una pantalla de texto de 8x8, las 
coordenadas de pixels x/y de 80/25 corresponderían a la columna 11, fila 4 
de aquélla). 


void Raton: :Rsitua( int ejex, int ejey ) 

1 // cursor del ratón a la nueva posición 
inreg.x.ax 4; Ze EA 
inreg.x.cx = ejex; 
inreg.x.dx = ejey; 
llamada_raton; 
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El procedimiento Rpulsado 


El procedimiento Rpulsado informa del estado de todos los botones, del nú- 
mero de veces que el botón que se consulta ha sido pulsado (desde la última 
vez que se llamó a Rpulsado para controlar este botón), y de las coordenadas 


del ratón cuando el botón consultado fue pulsado por última vez: 


Restado Raton::Rpulsado( int boton ) 


static Restado m; 


inreg.x.ax 57 

inreg.x.bx = boton; 
llamada_raton; 

m.estado «boton = outreg.x.ax; 
m.contador_boton = outreg.x.bx; 
m.ejex = outreg.X.CX; 

m.ejey = outreg.x.dx; 

return (m); 


El procedimiento Rliberado 


El procedimiento Rliberado es equivalente a Rpulsado, di 
mero de veces que el botón que se consulta fue soltado: 


Restado Raton: :Rliberado( int boton ) 
£ 


static Restado m; 


inreg.x.ax 6; 

inreg.x.bx = boton; 
llamada_raton; 

m.estado_boton = outreg.X.ax; 
m.contador_boton = outreg.x.bx; 
m.ejex = outreg.X.CxX; 

m.ejey = outreg.x.dx; 

return (m); 


el nú- 
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Los procedimientos Rlimitex y Rlimitey 


Los procedimientos Rlimitex y Rlimitey establecen los límites de la pantalla 
(en pixels) para el movimiento del ratón, Esto tiene una gran importancia 
cuando se utilizan gráficos de mayor resolución, ya que los límites por omi- 
sión puede que no incluyan la totalidad de la pantalla y, si no lo hacen, 
existirán determinadas zonas de ésta que no puedan ser alcanzadas por el 
ratón. 

Si se restringiera el movimiento del ratón a determinadas áreas de la pan- 
talla y se definiera un botón de salida (como se muestra en el programa 
RATONPTR), entonces deberíamos asegurarnos de la existencia de un proce- 
dimiento de salida alternativo o de disponer de algún modo de acceder a dicho 
botón. 


void Raton::Rlimitex( int min_x, int max_x ) 


1 
inreg.x.ax = 7; // función 7 
inreg.x.cx = min_x; 
inreg.x.dx = max_x; 
llamada_raton; 
) 
void Raton::Rlimitey( int min y, int max_y ) // establece 
los límites verticales 
t 
inreg.x.ax = 8; // función 8 
inreg.x.Ccx min_y; 
inreg.x.dx = max_y; 
llamada_raton; 
y 


Los procedimientos Rlimitex y Rlimitey podrían haber confluído en uno 
que admitiera cuatro argumentos. 


El procedimiento Recambio 


El método Rcambio devuelve un contador con el total de los pasos horizon- 
tales y verticales dados desde la última vez que fuera llamado. Para un ratón 
normal, el contador de pasos varía desde 1/100 incrementos por pulgada (100 
mickeys/pulgada)! de los ratones antiguos hasta los 1/200 (200 mickeys/pul- 


1. Un mickey se define como la unidad de desplazamiento del ratón, 
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gada) de los ratones más modernos y los 1/320 (320 mickeys/pulgada) de los 
ratones HiRes (alta resolución). 

Los contadores de pasos siempre varían entre -32768 y 32767, indicándose 
mediante un valor positivo un desplazamiento horizontal de izquierda a dere- 
cha o uno vertical hacia el usuario (suponiendo que el cable esté alejado de 
él). Los contadores de pasos horizontales y verticales se restituyen con el 
valor cero tras esta llamada: 


Rmovimiento* Raton: :Rcambio() 


t 
static Rmovimiento m; 

inreg.x.ax = 11; 
llamada_raton; 
m.contador_x = _CX; 
m.contador_y = _DX; 
return (£m); 

J 


Los gráficos de ratón y los cursores de texto se actualizan automá- 
ticamente, por lo que Recambio no necesita controlar su presentación en la 
pantalla, aunque puede ser utilizado en aplicaciones especiales, 

Consulte las funciones Rrelacion_paso y Rvelocidad 


El procedimiento Rrelacion_paso 


El procedimiento Rrelacion_paso controla el cociente entre el desplazamiento 
del ratón físico y el desplazamiento del cursor sobre la pantalla, con los 
argumentos según los eje x e y (dimx a dimy) expresados como el número de 
mickeys (unidades de desplazamiento del ratón) necesarios para recorrer ocho 
pixels sobre la pantalla. Son valores permitidos todos los comprendidos entre 
1 y 32.767 mickeys, aunque los valores adecuados dependen del número de 
mickeys por pulgada devueltos por el ratón físico: valores que pueden ser 100, 
200 6 320 mickeys por pulgada, dependiendo del hardware del ratón. 

Los valores por omisión son 8 mickeys/8 pixels en horizontal y 16 mic- 
keys/8 pixels en vertical. Un ratón que devuelva 200 mickeys/pulgada nece- 
sitará 3,2 pulgadas horizontales y 2,0 pulgadas verticales para cubrir los 
640x200 pixels de pantalla: 


void Raton::Rrelacion paso( int dimx, int dimy ) 
t 

inreg.x.ax 15; 

inreg.x.cx = dimx; 
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inreg.x.dx = dimy; 
llamada_raton; 


El procedimiento Rvelocidad 


El procedimiento Rvelocidad establece una velocidad umbral (en unidades de 
velocidad del ratón físico, mickeys/segundo) sobre la que el controlador del 
ratón añade una componente de aceleración, permitiendo desplazamientos 
más rápidos, con el consiguiente eco sobre el cursor de la pantalla. 

La componente de aceleración varía de acuerdo con el controlador del 
ratón instalado. Para algunos controladores, la aceleración es un multiplicador 
constante, normalmente un factor dos, mientras que para otros, entre los que 
se encuentra el ratón de Logitech, se utiliza una aceleración variable y unos 
valores de multiplicación que se incrementan en una curva de aceleración: 


void Raton::Rvelocidad( int velocidad ) 


1 
inreg.x.ax = 19; 
inreg.x.dx = velocidad; 
llamada_raton; 

) 


El umbral puede ser cualquier valor incluído en el intervalo 0..7FFFh, con 
un valor promedio en torno a los 300 mickeys/segundo. La aceleración puede 
desactivarse si el umbral se pone al valor 7FFFh y puede restituirse con un 
valor bajo o cero. 


El procedimiento Roculto 


El procedimiento Roculto designa un área rectangular de la pantalla en la que 
el ratón quedará oculto automáticamente. Su uso se centra en la protección de 
una determinada zona que vaya a ser reescrita: 


void Raton::Roculto( int izquierda, int arriba, 
int derecha, int abajo ) 


inreg.x.ax = 16; 
inreg.x.cx = izquierda; 
inreg.x.dx = arriba; 
inreg.x = derecha; 
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inreg.x.di = abajo; 
llamada_raton; 


El cursor del ratón quedará oculto automáticamente si está dentro o se 
desplaza hacia el área designada a tal efecto. La función Roculto es temporal 
y funciona decrementando el contador del ratón de la misma forma que una 
llamada a la función Rmuestra (FALSO). 

El área marcada por la llamada a Roculto quedará limpia y el cursor del 
ratón capacitado sobre toda la pantalla tras la llamada a la función Rmuestra 
(VERDAD). 


Desarrollo de los procedimientos de GRaton 


La realización del procedimiento GRaton incorpora tres procedimientos espe- 
cíficos de los gráficos a las funciones generales heredadas del tipo de objeto 
Raton. Dos de estos tres nuevos procedimientos son públicos (accesibles a las 
aplicaciones que utilizan el objeto), pero el tercero es privado y sólo puede 
ser llamado desde cualquier otro procedimiento del objeto. 


class GRaton : public Raton 


á 
private: 
void pon_cursor( int ejex, 
int ejey, 
unsigned Seg_mascara, 
unsigned Desp _ mascara ); 
public: 
void Pon_Cursor( g_cursor EsteCursor ); 
void Rbrillante( int puesto ); 
Y; 


El procedimiento pon_cursor 


El procedimiento pon_cursor es privado y no puede ser invocado directamen- 
te por ninguna aplicación. Indirectamente, puede ser llamado a través del 
procedimiento Pon_Cursor. El procedimiento pon_cursor es el mecanismo 
que se proporciona actualmente para cambiar el cursor del ratón gráfico. Su 
llamada debe incluir las coordenadas según los ejes x e y del punto de mira, 
así como la dirección del segmento y el desplazamiento de la imagen de aquél. 


EL OBJETO RATÓN GRÁFICO 377 


void GRaton::pon cursor( int ejex, 
int ejey, 
unsigned Seg mascara, 
unsigned Desp mascara ) 


t 
struct SREGS seg; 

inreg.x.ax = 9; 

inreg.x.bx = ejex; 

inreg.x.cx = ejey; 

inreg.x.dx = Desp_mascara; 

seg.es = Seg_ mascara; 

int86x( 0x33, sinreg, Soutreg, £seg ); 
) 


El procedimiento Pon_Cursor 


El procedimiento Pon_Cursor carga una nueva máscara del cursor, mostrán- 
dola en pantalla y convirtiéndola en el puntero activo del ratón gráfico: 


void GRaton::Pon_Cursor( g_ cursor EsteCursor ) 


1 
pon_cursor( EsteCursor.xcor, 
EsteCursor.ycor, 
DS, 
(unsigned) EsteCursor.MascaraPantalla ); 
) 


El cursor gráfico seleccionado puede ser uno de los cursores predefinidos 
y suministrados con la unidad del ratón (RATON.I) o cualquier otro definido 
en la aplicación. 

El procedimiento Pon_Cursor (público) es utilizado por las aplicaciones 
para llamar al procedimiento pon_cursor (privado) y realizar la operación 
actual; este procedimiento introduce la posibilidad de intercambiar los curso- 
res por medio de un único argumento (que identifica el nombre de la imagen 
del cursor), en vez de tener que especificar las coordenadas del desplazamien- 
to, del segmento y del punto de mira de la imagen de aquél. 


Los procedimientos Rbrillante 


Los lapiceros ópticos son relativamente raros, sin embargo, todavía existen 
determinadas aplicaciones que siguen utilizándolos. El paquete de control del 
ratón ofrece un par de funciones que admiten la emulación de aquellos. 

Se han desarrollado dos procedimientos, uno para el objeto GRaton y otro 
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para el tipo de objeto TRaton. Ambos desarrollan las funciones del lapicero 
óptico de la misma forma: 


void GRaton::Rbrillante( int puesto ) 


1 
if( puesto ) inreg.x.ax = 13; 
else inreg.x.ax = 14; 
llamada_raton; 
) 


La emulación del lapicero óptico se desactiva por omisión. Cuando ésta 
esté activa, los estados de pulsación simultánea de los botones izquierdo y 
derecho del ratón emularán el estado de "bajar lapicero”, mientras que su 
liberación emulará el estado de "subir lapicero”. 


Los procedimientos de TRaton 


Para crear el objeto ratón gráfico se añadieron tres funciones al objeto ratón 
genérico. Para hacer lo mismo con el ratón de texto sólo serán necesarios dos 
procedimientos (a la postre paralelos a los desarrollados para el ratón gráfico): 
Pon_Cursor, que permite activar el tipo del cursor de texto (consulte la Figura 
16-1), y Rbrillante, que admite la emulación del lapicero óptico, como se ha 
discutido antes. La Tabla 16-2 muestra los tamaños posibles del cursor de 
texto. 


class TRaton : public Raton 


É 
public: 
void Pon_Cursor( int tipo cursor, 
unsigned s_inicio, 
unsigned s_fin ); 
void Rbrillante( int puesto ); 
Y; 


El procedimiento Pon_Cursor tiene el mismo nombre que el equivalente de 
la función GRaton, sin embargo, esta versión ha sido desarrollada de una 
forma absolutamente diferente. Siendo estrictos, no obstante, éste no es un 
ejemplo de polimorfismo porque tanto GRaton como TRaton provienen de 
Raton y no uno del otro (son sibilinos, no descendientes). 


EL OBJETO RATÓN GRÁFICO 379 


Tabla 16-2 Posibles tamaños del cursor de texto 


Tipo visual (modo) Monocromo (07h) Texto (00-03h) 
Comienzo/fin por omisión 9h / VAh 06h / 07h 
Comienzo/fin de bloque 00h / OAh 00h / OBh 


El procedimiento Pon_Cursor (versión de texto) 


La versión de texto del procedimiento Pon_Cursor puede utilizarse para se- 
leccionar los cursores hardware o software y para cargar los parámetros de 
estos últimos: 


void TRaton::Pon_Cursor( int tipo _cursor, 
unsigned s_inicio, 
unsigneá s_fin ) 


inreg.x.ax = 10; 
inreg.x.bx = tipo cursor; 
inreg.x.cx = s_ inicio; 
inreg.x.dx = s_fin; 
llamada_raton; 


El cursor hardware hace uso del controlador de la pantalla para crear el 
cursor visual. Sus argumentos (c/ y c2) identifican las líneas de pixels de 
comienzo y fin de éste. El número de líneas de pixels de la celda de un 
carácter viene determinado por el controlador gráfico de la pantalla (y por ésta 
misma), aunque como norma general para todos los sistemas monocromo, el 
rango varía entre 0 y 7, mientras que para sistemas CGA, el rango varía entre 
0 y 14, de arriba abajo. 

En general, una línea de comienzo con valor seis y una de fin con valor 
siete generarán un cursor "subrayado". Una línea de comienzo de dos y otra 
de fin de cinco o seis producen un cursor en forma de bloque, que va bien 
incluso en sistemas VGA de alta resolución. 

El cursor software es algo más complejo. Si se utiliza un cursor software, 
los parámetros cl y c2 generarán un carácter o unos atributos de carácter que 
serán sometidos a operaciones AND y XOR, respectivamente, con el carácter 
de la pantalla. El parámetro c/ (máscara de pantalla), se operará en AND con 
el carácter y los atributos encontrados en la pantalla en la posición del cursor 
del ratón, marcando los elementos que deben preservarse. A continuación, el 
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parámetro c2 (máscara del cursor) se operará en XOR con el resultado de la 
operación previa, indicando cuáles son las características modificadas. 

En la práctica, el valor $7F00 de la máscara de pantalla permitiría preser- 
var los atributos del color, mientras que un valor de la máscara del cursor de 
$8018 daría origen a un cursor parpadeante en forma de flecha, y el valor 
$0018 a una flecha sin parpadeo. En cualquier caso, los atributos de color de 
la parte representada y del fondo quedarán preservados. De la misma manera, 
una máscara de pantalla con valor $0000 y una máscara de cursor igual a 
$FFFF producirían un cursor en forma de bloque blanco y parpadeante. Con- 
sulte la Tabla 16-3 para mayor información. Como regla general, los ocho bits 
menos significativos de la máscara de pantalla deben ser $..00 Ó $..FF, con 
preferencia por este último, 


Tabla 16-3 Formato de los parámetros del cursor software 


Bit Descripción 

De Código de caracteres ASCII extendido. 
8..10 Color de representación. 

11 Intensidad: I=alta, O=baja. 

12..14 Color de fondo. 

15 Parpadeo (1) o no parpadeo (0). 


La utilidad puntero del ratón 


El segundo ejemplo de este capítulo lo constituye el editor de cursores de 
ratones (RATONPTR.CPP). Se trata de un programa que se constituye tanto 
en una utilidad de creación de imágenes cursores de ratones como en un 
medio de demostración del uso de la unidad del ratón, 

RATONPTR podría haberse creado como un programa orientado a objetos; 
sin embargo, se ha desarrollado en Lenguaje C convencional, al margen de 
las llamadas a la unidad del ratón orientada al objeto. Esto se hace por dos 
razones: la primera, evitar las complicadas explicaciones que aparecerán más 
tarde y la segunda es que determinadas porciones de código utilizadas en este 
programa servirán para contrastar las estructuras del botón gráfico orientado 
a objetos que se crearán en el capítulo 17. Desde aquí se le da la bienvenida 
y se le invita a practicar la programación orientada a objetos revisando el 
programa RATONPTR (que hace uso de las utilidades de botón orientadas al 
objeto que se verán más tarde). 

El programa RATONPTR es autoexplicativo en líneas generales. Propor- 
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ciona dos estructuras reticulares para la edición de las máscaras del cursor y 
de la pantalla, dando pie a la creación de las imágenes de los punteros del 
ratón. La edición se lleva a cabo con la ayuda del ratón para asegurar los 
cuadrados de las retículas o para seleccionar los botones de las opciones que 
se hallan en la parte inferior de estas retículas. Las opciones que se listan en 


las Tablas 16-4 y 


16-5 están disponibles. 


Las operaciones de control afectan tanto a la máscara de la pantalla como 


a la del cursor. 


Tabla 16-4 


Botones de las opciones de las máscaras del cursor 
en RATONPTR 


Opciones de las 


máscaras del cursor Descripción 
Borra Restituir en todos los bits de la retícula de máscara 
del cursor el valor FALSO (cero). 
Invierte Invertir todos los bits de la retícula de la máscara 
del cursor. 
Copia a pantalla Copiar la retícula de la máscara del cursor sobre la 
retícula de la máscara de la pantalla. 
Tabla 16-5 Opciones generales de las máscaras en RATONPTR 
Opciones 
generales Descripción 
Invierte Invertir todos los bits de la retícula de la máscara de pantalla. 


Crea desde cursor 


Poner rojo 


Usa cursor 


Cursor flecha 


Graba cursor 


Salir 


Crea una imagen en la retícula de la máscara de pantalla a partir de la retícula de 
del cursor. Para cada punto de la retícula de la máscara de pantalla se 
cumple: si el punto correspondiente de la retícula de la máscara del cursor o 
cualquier otro adyacente a éste es VERDAD, el punto la retícula de la máscara de 
la pantalla es FALSO, 


El punto seleccionado tanto en la retícula de la máscara de pantalla como en la de 
la máscara del cursor será un punto de mira del cursor del ratón y aparecerá en 
rojo.en ambas retículas. Cualquier otro punto de mira desaparecerá. 


Convierte la imagen del cursor editado en el puntero activo del ratón sobre la 
pantalla, 


Restituye el puntero en forma de flecha. 


Almacena las imágenes vigentes de las retículas de la pantalla y del cursor sobre 
un archivo ASCIÍ en formato hexadecimal. El archivo de salida puede ser 
importado directamente y utilizado por cualquier programa Turbo Co C++. Para 
ello se utiliza el directorio actual. La extensión .CUR del archivo se añade 
automáticamente. 


Salida del programa. No se han previsto medidas de seguridad para evitar salidas 
accidentales. 
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Formato del archivo .CUR 


La imagen del cursor del ratón se almacena en formato ASCII, quedando 
disponible para su utilización directa en cualquier programa por medio de la 
unidad RATON.I. 


static ygy_cursor FLECHA = 
1 OX1FFF, OX0FFF, 0x07FF, Ox03FF, //1 
Ox01FF, Ox00FF, 0x007F, 0x003F, 
Ox001F, 0x003F, Ox01FF, Ox01FF, 
OxEO0FF, OxFOFF, OxF8FF, OxF8FF, 


a pantalla// 


0x0000, 0x4000, 0x6000, 0x7000, // máscara cursor // 
0x7800, 0x7C00, 0x7E00, 0x7F00, 
0x7F80, 0x7C00, 0x4C00, 0x0600, 
0x0600, 0x0300, 0x0300, 0x0000, 
La 1 Y; // xcor, ycor // 


Todos los valores están escritos en formato hexadecimal, simplificando así 
cualesquiera posteriores ediciones o revisiones. Los valores xcor y ycor se 
escriben como valores de palabra, aunque en la actualidad sólo son valores 
enteros (y nunca exceden de Ox000F). La conversión la lleva a cabo automá- 
ticamente Turbo C++, 


Operaciones clásicas con el botón gráfico 


La utilidad RATONPTR viene a ser manipulada por los controles de botón 
listados anteriormente, aunque estos últimos sólo se comporten como tales en 
un sentido limitado. Un contorno y un rótulo se escriben en la pantalla con 
funciones distintas, emparejándose éstas con sus correspondientes imágenes 
de forma arbitraria (en función de las coordenadas de posición del puntero del 
ratón) en el momento en que se produce la pulsación de un botón de éste. Las 
retículas de la pantalla y del cursor se tratan de una forma similar. 

En el capítulo 17, esta dicotomía se resuelve en un tipo de objeto llamado 
botón. Además, las imágenes, las posiciones de pantalla y las respuestas de 
control se mezclarán en un único objeto de control. 

El tipo de objeto botón puede utilizarse para sustituir una gran cantidad de 
instrucciones del programa de utilidad RATONPTR. Entre ellas no sólo se 
incluyen las de la pantalla gráfica, el cursor y los botones de control en 
general, sino también las de la retícula de la pantalla y del cursor. Todas ellas 
se sustituyen por listas de botones vacíos. 
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Por el momento, sin embargo, el tópico es la convencional estructura de 
control no orientada al objeto, que comienza haciendo uso del objeto graton 
(tipo GRaton) para permitir las operaciones del ratón gráfico: 


Result = graton.Riniciar(); 
setwritemode( COPY_PUT ); 
if( Result->presente ) 
t 

do 

E 


En el interior del bucle sólo se utiliza el botón izquierdo del ratón. Se 
comienza con la llamada a Rpulsado para examinar el suceso de la pulsación 
del botón izquierdo: 


Posicion = graton.Rpulsado( BotonI ); 
if( Posicion.contador_boton ) 
t 


Si el valor devuelto en contador_boton es distinto de cero, el siguiente 
paso consiste en comprobar dónde estaba ubicado el ratón cuando se pulsó el 
botón, Esto se efectúa mediante sentencias ¡f anidadas. 


if( TPos( Posicion.ejey, 30, 270 ) ) 
t 1/ rejilla de ventana o de cursor // 
if( TPos( Posicion.ejex, 15, 255 ) ) 
PosPantalla( Posicion.ejex, 
Posicion.ejey ); 
if( TPos( Posicion.ejex, 384, 624 ) ) 
PosCursor( Posicion.ejex, 
Posicion.ejey ); 
J 
else 
if( TPos( Posicion.ejey, 280, 300 ) ) 
// mandatos de pantalla o de cursor // 
t ve: s de la máscara de pantalla // 
if( TPos( Posicion.ejex, 15, 75) ) 
LimpiaPantalla(); else 
if( TPos( Posicion.ejex, 85, 145 ) ) 
InviertePantalla(); else 
if( TPos( Posicion.ejex, 155, 295 ) ) 
PantallaDesdeCursor(); else 
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5 de la máscara cursor // 

if( TPos( Posicion.ejex, 364, 484 ) ) 
CursorEnPantalla(); else 

if( TPos( Posicion.ejex, 494, 554 ) ) 
InvierteCursor(); else 

if( TPos( Posicion.ejex, 564, 624 ) ) 
BorraCursor(); 


) 
else 
if( TPos( Posicion.ejey, 320, 340 ) ) 
( // opciones de los mandatos generales // 


if( TPos( Posicion.ejex, 15, 125 ) ) 
UsarNuevoCursor(); else 
if( TPos( Posicion.ejex, 140, 250 ) ) 
graton.Pon_Cursor( FLECHA ); else 
if( TPos( Posicion.ejex, 265, 375 ) ) 
PonCuadroRojo(); else 
if( TPos( Posicion.ejex, 390, 500 ) ) 
GuardaApuntador(); else 
if( TPos( Posicion.ejex, 515, 625 ) ) 
Salir = VERDAD; 
A 
while( ISalir ); 


Aun cuando esta estructura de respuesta funciona adecuadamente, presen- 
ta, sin embargo, una seria deficiencia. Un adagio popular dice "Si funciona, 
no lo toques”. Pero algunas veces, lo que funciona bajo unas condiciones 
determinadas no lo hace bajo otras. La codificación utilizada en este ejemplo 
es un caso claro. En un sistema gráfico EGA u otros de mayor resolución 
gráfica, el programa RATONPTR funciona correctamente pero, en un sistema 
visual CGA, deberían realizarse determinadas conversiones antes que las re- 
tículas de las imágenes y los botones de control pudieran ajustarse a la reso- 
lución vertical de 200 pixels. Siempre es posible escribir fórmulas para adap- 
tar las imágenes de la pantalla a las distintas resoluciones verticales (y 
horizontales); además, es necesario asociar una serie de variables a cada uno 
de estos elementos de pantalla y asignar valores de coordenadas de pantalla a 
cada uno de ellos, en función de la resolución vertical que se utilice. En la 
programación convencional, sin embargo, esto es difícil y poco ágil. Este 
resulta ser un ejemplo excelente de cómo y en qué punto la programación 
orientada a objetos resulta ser enormemente ventajosa, como se verá en el 
capítulo 17. 
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Resumen 


En este capítulo se ha creado un objeto ratón en forma de archivo de inclu- 
sión, RATON.L. Este objeto se ha utilizado en ejemplos que muestran el 
control general de aquél. Antes de continuar se le aconseja que adquiera una 
unidad de ratón que contemple ambos procedimientos, el del ratón en modo 
gráfico y el de texto, compilados y listos para usar. 

Tanto el programa RATONPTR (a continuación) como los programas de 
demostración del botón, de la barra de desplazamiento y del icono (en poste- 
riores capítulos) pueden utilizarse en el examen del objeto ratón: 


//  RATON.I: Código fuente en Turbo C para el objeto de // 
// interfaz del ratón. Debe incluir HHinclude <dos.h> 11 


// antes de este mismo include para definir el 11 
// conjunto de registros usados para pasar argumentos // 
/1/ al controlador 11 


include <dos.h> 
ttinclude <stddef.h> 


Hdefine menor (X, Y) (xXx < Y) ? Xx: Y 
itdefine mayor (Xx, Y) (Xx > Y) ? X : 
fdefine llamada_raton int86(0x33, £inreg, koutreg); 


// llamada a interrupción para el // 

// controlador (lógico) del ratón // 
idefine Botonl 0 
Hdefine BotonD el 
define BotonM 2 

iidefine SOFTWARE 0 en modo texto // 
iidefine HARDWARE 1 
define FALSO 0 
Hdefine VERDAD E 
Hidefine OFF 0 
itdefine ON HE 

union REGS inreg, outreg; /f/ registros locales // 

typedef struct 
í ¿int presente, // VERDAD si el ratón á presente // 
botones; // ns de botones en el ratón // 


j) Rresultado; 
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typedef struct 
f int estado boton, f/ bits 0-2 en "on" si hay 
botón pulsado // 
// m9 de veces que se apretó 
el botón // 
// posición del cursor del ratón // 


contador_boton, 


ejex, ejey; 
Jj Restado; 


typedef struct 
d int contador_x, //movimiento horizontal en 
la retícula // 
contador_y; // movimiento vertical / 


) Rmovimiento; 


typedef struct 
f unsigned flag, // registro de un suceso 
us del ratón // 
boton, 
ejex,: ejey; 
) evento_raton; 


typedef struct 
í unsigned int // descriptor del cursor gráfico // 
MascaraPantalla[16], 
MascaraCursor[16], 
XCOr, ycor; 
) g_cursor; 


static 
[ Ox1FFF, 
Ox01FF, 
Ox001F, 
OXxE0OFF, 


0x0000, 

0x7800, 

0x7F80, 

) 0x0600, 
1, 


static 
[  OXxFFFO, 
OxFF03, 
0x803F, 
OXFFFF, 


g_cursor 


OXOFFF, 
OX00FF, 
0x003F, 
OXxFOFF, 


0x4000, 
0x7C00, 
0x7C00, 
0x0300, 

1 Y; 


OXFFEO, 
0x0607, 
OxCO07F, 
OXFFFF, 


FLECHA = 


0x07FF, 
0x007F, 
OXxO1FF, 
OXF8FF, 


0x6000, 
Ox7E00, 
Ox4C00, 
0x0300, 


g_cursor MARCA = 


OXFFCO, 
Ox000F, 
OXE0FF, 
OXFFFF, 


// máscara de la pantalla 


Ox03FF, 
0x003F, 
Ox01FF, 
OxF8FF, 


/'/ máscara del cursor 


0x7000, 
0x7F00, 
0x0600, 
0x0000, 


// xcor, yeor 


e 


1 


24 


// máscara de la pantalla // 


OXFF81, 
0x001F, 
OXF1FF, 
OXFFFF, 
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O0x0000, 0x0006, 
0x0030, 0x0060, 
Ox1F00, OX0E00, 
0x0000, 0x0000, 


5, 10 


Y; 


static -g_cursor CRUZ 
£ OxF01F, OxE0O0F, 
0x0441, 0x0C61, 
0x0381, 0x0C61, 
0xC007, OXEO0F, 


0x0000, 0x07C0, 
0x2108, 0x4004, 
0x4004, 0x4004, 
0x0920, 0x07C0, 


7, (eds 


Y; 


Ox00D0C, 
0x70C0, 
0x0400, 
0x0000, 


0xC007, 
0x0381, 
0x0441, 
OxFO1F, 


0x0920, 
0x4004, 
0x2108, 
0x0000, 


static ygy_cursor GUANTE = 
€ OxF3FF, OxElFF, 
OXE1FF, 0xE049, 
0x0000, 0x0000, 
OX9FF9, Ox8FF1, 


Ox0C00, 0x1200, 
0x1200, 0x13B6, 
0x9249, 0x9001, 
0x4002, 0x4002, 


4, 0 


Di 


“static y_cursor VIGA 
f OXF3FF, OxE1FF, 
OXE1FF, 0xE049, 
0x0000, 0x0000, 
Ox9FF9, 0x8FF1, 
0x0C30, 0x0240, 


0x0180, 0x0180, 
0x0180, 0x0180, 
0x0180, 0x0180, 


7, y 


class Raton 


int Rvisible; 


d; 


OXE1FF, 
OXE000, 
Ox07FC, 
0xC003, 


0x1200, 
0x1249, 
0x9001, 
0x2004, 


OXE1FF, 
OXE000, 
Ox07FC, 
0xC003, 
0x0180, 


0x0180, 
0x0180, 
0x0240, 


// má 


ara Cursor 
0x0018, 
0x3980, 
0x0000, 
0x0000, 


// máscara de la pantalla 
0x8003, 
0x0381, 
0x8003, 
OXFFFF, 

// máscara del cursor 
Ox1110, 
0x783C, 
Ox1110, 
0x0000, 


1 oxcor, ydor 


// máscara de la pantalla 
OXE1FF, 
0x8000, 
0x07F8, 
OXE007, 
0x1200, 
0x7249, 
0x8001, 
Ox1FF8, 


del cursor 


Ni” HEDE) YOOY 


OXE1FF, 
0x8000, 
0x07F8, 
OXE007, 
0x0180, 

17 ma 
0x0180, 
0x0180, 
0x0C30, 


ara del cursor 


estado del cu del ratón 
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protected; 
Raton(); Af constructor // 
-Raton(); // destructor // 
public: 
static evento_raton far *Reventos; 
Rmovimiento *Rcambio(); // movimiento del cursor // 


//en la retícula // 
Rresultado *Riniciar(); 
Restado Rpos(); 
Restado  Rpulsado( int boton ); 
Restado  Rliberado( int boton ); 
void Rmuestra( int presente ); 
void Rsitua( int ejex, int ejey ); 
void Rlimitex( int min_x, int max_x ); 
void Rlimitey( int min y, int max y ); 
void Rrelacion_paso( int dimx, int dimy ); 
void Rvelocidad( int velocidad ); 
void Roculto( int izquierda, int arriba, 
int derecha, int abajo ); 
d; 


class GRaton : public Raton 
1 


private: 
void pon_cursor( int ejex, // forma del cursor 
gráfico // 
int ejey, 
unsigned Seg_mascara, 
unsigned Desp_mascara ); 
public: 


void Pon_Cursor( g_cursor EsteCursor ); 
void Rbrillante( int puesto ); 


class TRaton : public Raton 
t 
public: 
void Pon_Cursor( int tipo cursor, // forma del cursor 
de texto // 
unsigned s_ inicio, 
unsigned s_fin ); 
void Rbrillante( int puesto ); 
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// Desarrollos de las funciones estándares del ratón AN 


Raton::Raton() (1  ) 


Raton: :-Raton()  ( J 


Rresultado *Raton::Riniciar() 


// pone el ratón en su estado inicial por omisión, 11 
// devuelve un puntero a la estructura Rresultado Ae 
1 ndo si el ratón está instalado y, si lo está, // 
// el número de botones -- siempre es llamado en la 11 
// inicialización $e 
t 

static Rresultado m; 

Rvisible = OFF; 

inreg.x.ax = 0; // función 0 del ratón // 

llamada_raton; 

m.presente = outreg.X.ax; 

m.botones = outreg.x.bx; 

if( m.presente ) Rmuestra( VERDAD ); 

return ( £m ); 
J 


void Raton: :Rmuestra( int presente ) 


t 

if( presente ) 

1 
inreg.x.ax = 1; 1/ función 1 del ratón // 
if( !Rvisible ) llamada_raton; // muestra el cursor 

del ratón // 

Rvisible = ON; 

, 

else 

t 


integ.x.ax = 2 // función 2 del ratón // 
if( Rvisible ) llamada_raton; // esconde el cursor // 
Rvisible = OFF; 
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Restado Raton: :Rpos() 


// Gevuelve un puntero a la // 


// estructura Restado con "NA 

t (/ la posición del cursor NA 

/1/ y el estado del botón EN 
static Restado m; 
inreg.x.ax = 3; 310% 
llamada_raton; 
m.estado_boton = outreg.x.bx; // estado del botón // 
m.ejex = outreg.x.CcxX; // coordenada x // 
m.ejey = outreg.x.dx; 1/ coordenada y // 
return (m); 

) 

void Raton::Rsitua( int ejex, int ejey ) 

t // cursor del ratón a una nueva posición // 
inreg.x.ax = 4; 1/ unción 4 7 
inreg.x.cx = ejex; 
inreg.x.dx = ejey; 
llamada_raton; 

) 

Restado Raton: :Rpulsado( int boton ) 

1! lelve información sobre el boton pulsado; estado // 

11 ual (pulsado o no), de veces que $e pulsó "NA 

1 la llamada anterior, posic del cursor la / 

E -- reinicia la cuenta y la Il 


static Restado m; 


inreg.x.ax = 5; 
inreg.x.bx = boton; 


llamada_raton; 
m.estado_boton = outreg.x.ax; 
m.contador_boton = outreg.x.bx; 
m.ejex = outreg.X.CcX; 

m.ejey = outreg.x.dx; 

return (m); 


es izquier 
centro en el de LogiTech 


11 
14 


Ii 


función 5 
petición de 
determinado 


un botón 


derecha en el // 


1 
Il 
21 


EL OBJETO RATÓN GRÁFICO 391 
Restado Raton: :Rliberado( int boton ) 
// devuelve información 2 
1 // sopre el botón liberado // 
static Restado m; 
inreg.x.ax = 6; // función 6 ye 
inreg.x.bx = boton; 1/ pet para un // 
// determ do botón // 
llamada_raton; 
m.estado_boton = outreg.x.ax; 
m.contador_boton = outreg.x.bx; 
m.ejex = outreg.X.CX; 
m.ejey = outreg.x.dx; 
return (m); 
) 
void Raton: :Rlimitex( int min_x, int max_x ) 
// Establece el rango ho imo y mínimo, bl 
// para el cursor del ratón. Pone el “cursor itro de de 
/ fue: cuando se invoca. Si se YA 
los valores de min_x y max_x los 11 
Pe 1? 
t 
inreg.x.ax = 7; // función 7 // 
inreg.x.cx = min_x; 
inreg.x.dx = max_xX; 
llamada_raton; 
) 
void Raton: :Rlimitey( int min_y, int max_y ) 
// establece los límites verticales// 
t 
inreg.x.ax = 8; 1 sión 8 // 
inreg.x.cx = min_y; 
inreg.x.dx = max_y; 
llamada_raton; 
) 


void GRaton::pon_cursor( int ejex, 


int ejey, 
unsigned Seg_mascara, 
unsigned Desp mascara ) 
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í 17 Est 
struct SREGS seg; 


inreg.x.ax = 9; 
inreg.x.bx = ejex; 
inreg.x.cx = ejey; 
inreg.x.dx = Desp_mascara; 
seg.es = Seg_mascara; 


lece la forma del cursor gráfico // 


17 función 9 // 
LA 


int86x( 0x33, £inreg, Soutreg, £$seg ); 


void TRaton::Pon_Cursor( int tipo cursor, 


unsigned s_inicio, 
unsigned s_fin ) 


blece el tir 
oftware y 1 


t 
inreg.x.ax = 10; 
inreg.x.bx tipo cursor; 
inreg.x.cx = s_inicio; 
inreg.x.dx = s_fin; 
llamada_raton; 

) 


Rmovimiento* Raton: :Rcambio() 


static Rmovimiento m; 


inreg.x.ax = 11; 
llamada_raton; 
m.contador_x = _C. 
m.contador_y = _D; 
return (£m); 


forma del cursor. 


donde 2! 
or de EE 


ne 

cursor PE 
neas de ad 

1h 


// función 10 // 


// informa del movi 


del cursor en la retícul 
lesde la última llamada // 


48 Eunción 11 Y/ 


/£/ movimien según ejex // 


2/ movimiento según ejey // 
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void GRato: brillante( int puesto ) 
1 
if( puesto ) inreg.x.ax = 13; Vi = 17 
else inreg.x.ax = 14; e 1) 
llamada_raton; 
) 


void TRaton 


t 


brillante( int puesto ) 


if( puesto ) inreg.x.ax = 13; // función 13 ON /4 
else iinreg.x.ax = 14; // función 14 = OFF // 
llamada_raton; 
) 
void Raton: :Rrelacion_paso( int dimx, int dimy ) 
t // relación de paso en y frente // 
1/ a paso: en x con ratio R/8 11 


inreg.x.ax = 15; 1/ Por omisión 
inreg.x.Ccx =».dimx; // por 8 en ho: 
inreg.x.dx = dimy; 

llamada_raton; 


16 en verti 
ontal // 


void Raton::Roculto( int izquierda, int arriba, int 
derecha, int abajo ) 


( // selecciona el á de la pa E 

A el tón no ser bla == due 
// actualizar 14' pantalla 10 

inreg.x.ax = 16; 

inreg.x.cx = izquierda; 

inreg.x.dx arriba; 

inreg.x.si derecha; 

inreg.x.di = abajo; 


llamada_raton; 


void Raton::Rvelocidad( int velocidad ) 
t yA tablece la velo 
inreg.x.ax = 19; 
inreg.x.dx = velocidad; 
llamada_raton; 


idad en mickeys/segundo // 
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void GRaton::Pon_Cursor( g_ cursor EsteCursor ) 
1 
pon_cursor( EsteCursor.xcor, 
EsteCursor.ycor, 
_DS, 
(unsigned) EsteCursor.MascaraPantalla ); 


// definiciones para usar en las aplicaciones // 


GRaton graton; 
TRaton traton; 


11 RATONPTR.CPP YN 
Pie Programa de Demostración para el Objeto Raton 11 


NE y Utilidad de creación de cursores del ratón 


/(ámmm=z ====== 


Hifdef __TINY__ 

error La Demostración no funciona si se compila en el 
modelo TINY 

tendif 


ttinclude <conio.h> 
ftinclude <stdio.h> 
ttinclude <stdlib.h> 
ttiinclude <stdarg.h> 
ttinclude <graphics.h> 
ttinclude <string.h> 
ttinclude "raton.i" 


Restado Posicion; 
g_cursor NuevoCursor; 
int Botones, XIndex, YIndex, CuadroRojoX = 0, 
ls CuadroRojoY = 0, SelecCuadroRojo, 
Pantalla[16] [16], 
Cursor[16][16]; 
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int TPos( int TP, int Abajo, int Arriba ) 


1 
return( ( TP >= Abajo ) £8 ( TP <= Arriba ) ); 


) 


void RecuadroItem( int x, int y, int w, int h, char* text ) 
1 

settextjustify( CENTER_TEXT, CENTER_TEXT ); 

rectangle( X, Y, X+W, Y+th ); 

outtextxy( x+(w/2), y+(h/2), text ); 
) 


void RellenaCuadro( int x1, int yl, int x2, int y2, 
int EstiloRelleno, int Color ) 


1 
int lineaborde[10]; 
lineaborde [0] = lineaborde[6] = lineaborde[8] = x1; 
lineaborde[2] = lineaborde[4] = x2; 
lineaborde[1] = lineaborde[3] = lineaborde[9] = yl; 


lineaborde[5] = lineaborde[7] = y2; 
setfillstyle( EstiloRelleno, Color ); 
fillpoly( 5, lineaborde ); 


void BorraCuadro( int x1, int yl, int x2, int y2 ) 
t 
RellenaCuadro( x1, yl, x2, y2, EMPTY _FILL, 0 ); 


) 


void Pitido() 


1 
sound( 220 ); delay( 100 ); nosound(); 
delay( 50 ); 
soundí 440 ); delay( 100 ); nosound(); 
7 


void HacerCursor () 

t 
int 1, 3 
unsigned int TBit; 


NuevoCursor.xcor = CuadroRojoX; 
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NuevoCursor.ycor = CuadroRojoY; 
for( i=0; i<=15; i++ ) 
t 
NuevoCursor.MascaraPantalla[i] = 0x0000; 
NuevoCursor.MascaraCursor[i] = 0x0000; 
for( j=0; j<=15; j++ ) 
t 
NuevoCursor.MascaraCursor[i] <<= 1; 
if( Cursor[j][i] ) NuevoCursor.MascaraCursor[i]++; 
NuevoCursor.MascaraPantalla[i] <<= 1; 
if( Pantalla([j][i] ) 
NuevoCursor.MascaraPantalla[il++; 


void UsarNuevoCursor() 


t 


HacerCursor (); 

graton.Rmuestra( FALSO ); 
graton.Pon_Cursor( NuevoCursor ); 
graton.Rmuestra( VERDAD ); 


void DibujaPantalla( int X, int Y ) 


1 


int Color = WHITE; 


if ( ( X == CuadroRojoX ) ££ ( Y == CuadroRojoY ) ) 
Color = LIGHTRED; 
graton.Rmuestra( FALSO ); 
if( Pantalla[X][Y] ) 
RellenaCuadro( X*15+18, Y*15+33, X*15+27, Y*154+42, 
SOLID_FILL, Color ); 
else 
1 
BorraCuadro ( X*15+15, Y*15+30, X*15+30, Y*154+45 ); 
RellenaCuadro( X*15+15, Y*15+30, X*15+30, Y*154+45, 
CLOSE_DOT_FILL, Color ); 
J 
graton.Rmuestra( VERDAD ); 
setcolor( WHITE ); 
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void DibujaCursor( int X, int Y ) 
4 
int Color = WHITE; 


CuadroRojoX ) ££ ( Y == CuadroRojoY ) ) 
Color = LIGHTRED; 
graton.Rmuestra( FALSO ); 
if( Cursor[X][Y] ) 
RellenaCuadro( (X+1) * 15 + 369, (Y+2) * 15, 
(X+2) * 15 + 366, (Y+3) * 15 - 3, 
SOLID_FILL, Color ); 
else 
RellenaCuadro( (X+1) * 15 + 369, (Y+2) * 15, 
(X+2) * 15 + 369, (Y+3) * 15, 
CLOSE_DOT_FILL, Color ); 
graton.Rmuestra( VERDAD ); 
setcolor( WHITE ); 


void CompletaCuadroRojo() 

sE 
DibujaCursor( CuadroRojoX, CuadroRojoY ); 
DibujaPantalla( CuadroRojoX, CuadroRojoY ); 
graton.Rmuestra( FALSO ); 
SelecCuadroRojo = FALSO; 
setcolor( WHITE ); 
settextjustify( CENTER_TEXT, CENTER_TEXT ); 
RecuadroItem( 265, 320, 110, 20, "Poner Rojo " ); 
graton.Rmuestra( VERDAD ); 


void PonCuadroRojo() 
€ 
int, Xy 07 


X = CuadroRojoX; 

Y = CuadroRojoY; 
CuadroRojoX = -1; 
CuadroRojoY = -1; 
DibujaCursor( X, Y ); 
DibujaPantalla( X, Y ); 
graton.Rmuestra( FALSO ); 
SelecCuadroRojo = VERDAD; 
setcolor( RED ); 
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settextjustify( CENTER_TEXT, 


RecuadroItem( 265, 
setcolor( WHITE ); 
graton.Rmuestra( VERDAD 


320, 


void PresentaMenu() 
t 
1nc dd 


110, 


di 


settextjustify( CENTER_TEXT, 


outtextxy( 135, 20, 
outtextxy( 504, 20, 
CompletaCuadroRojo(); 

/ 
280, 
280, 
280, 


Recuadroltem( 15, 
RecuadrolItem( 85, 
Recuadroltem( 155, 


60, 
60, 
140, 


// elementos 


RecuadrolItem( 
RecuadrolItem( 
Recuadroltem( 


564, 
494, 
344, 


280, 
280, 
280, 


Recuadroltem( 15, 

Recuadroltem( 140, 

RecuadroItem( 265, 

RecuadrolItem( 390, 320, 

Recuadroltem( 515, 320, 

for( i=0; i<=15; 1++ ) 
for( j=0; j<=15; j++ 
E 


320, 
320, 
320, 


60, 
60, 
140, 


110, 
110, 
110, 
110, 
110, 


) 


más 


CENTER_TEXT ); 
20, "Poner Rojo " ); 


CENTER_TEXT ); 


"Máscara Pantalla" ); 
"Máscara Cursor" ); 


ara de la pantalla items // 

20, "Borra" ); 

20, "Invierte" ); 

20, "Crea desde Cursor" ); 

de la máscar l cursor // 

20, "Borra ; 

20, "Invierte" ); 

20, "Copia a Pantalla" ); 
// opciones de control // 

20, "Usa Cursor " ); 

20, "Cursor Flecha" ); 

20, "Poner Rojo " ); 

20, "Graba Cursor" ); 

20, "Salir" ); 


Pantalla[i][j] = FALSO; 
0 
Cursor[i][j] = FALSO; 


DibujaPantalla( i, 


DibujaCursor( i, j 


void LimpiaPantalla() 


t 


for( i= d++ ) 
for( J=0; j<=15; j++ 
if( Pantalla[i] [3] 


¿ i<=15; 


di 


) 
) 
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Pantalla[i][j] = FALSO; 
DibujaPantalla( i, j ); 


void BorraCursor() 


t 
inte dde 
for( i=0; i<=15; i++ ) 
for( j=0; j<=15; j++ ) 
if( Cursor[il[j] ) 
t 
Cursor[i][j] = FALSO; 
DibujaCursor( i, j ); 
J F 


void InviertePantalla() 


1 
dot de dy 
for( i=0; i<=15; i++ ) 
for( j=0; J]<=15; j++ ) 
t 
if( Pantalla[i][j] ) Pantalla[i][3] = FALSO; 
else Pantalla[i][j] = VERDAD; 
DibujaPantalla( i, j ); 
J ) 
void InvierteCursor() 
1 
int i, 3; 
for( i=0; i<=15; i++ ) 
for( j=0; j<=15; j++ ) 
t 
if( Cursor[il][j] ) Cursor[il[j] = FALSO; 
else Cursor[i][j] = VERDAD; 


DibujaCursor( i, j ); 
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void PosPantalla( int ejex, int ejey ) 
Á 


int x, y; 
x= ( ejex / 15) - 13 
y = ( ejey / 15 ) -= 2; 


if( SelecCuadroRojo ) 
t 
CuadroRojoX = x; 
CuadroRojoY = y; 
CompletaCuadroRojo(); 
) 
else 
( 
if( Pantalla[x] [y] ) Pantalla[x] [y] = FALSO; 
else Pantalla[x] [y] = VERDAD; 
DibujaPantalla( x, y ); 


void PosCursor( int ejex, int ejey ) 


1 


int x, y; 
x= ( ejex - 384 ) / 15; 
y = (ejey / 15.) - 2, 


if( SelecCuadroRojo ) 
t 
CuadroRojoX = Xx; 
CuadroRojoY = y; 


CompletaCuadroRojo(); 
) 
else 
t 
if( Cursor[x] [y] ) Cursor[x] [y] = FALSO; 
else Cursor[x] [y] = VERDAD; 
DibujaCursor( Xx, y ); 
AN 


void CursorEnPantalla() 
1 


int id, 3; 


for( 1=07 i<=15; d++ ) 
for( 3=0; j<=15; j++ ) 
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Pantalla[i] [3] = Cursor[i] [3]; 
DibujaPantalla( i, j ); 


void PantallaDesdeCursor() 


1 
int di, J, x, y, Test; 


for( i=0; i<=15; i++ ) 
for( j=0; j<=15; j++ ) 
t 
Test = VERDAD; 
for( x=-1; x<=13 x++ ) 
for( y =-1; y<=1; y++ ) 


c1£( ( TPos( i+x, 0, 15 ) ) €£ 
( TPos( J+y, 0, 15 ) ) ££ 
( Cursor[i+x][J+y] ) ) Test = FALSO; 


Pantalla[i]([j] = Test; 
DibujaPantalla( i, j ); 


int GuardaApuntador() 

1 
int i= 0, Terminar = FALSO; 
char Tecla, NombreCursor[8]="", NombreArchivo[12]= 
FILE *CF; 


strcpy( NombreCursor, "........” )5 
setviewport( 269, 0, 369, 42, VERDAD ); 
settextjustify( CENTER_TEXT, CENTER_TEXT ); 
graton.Pon_Cursor( VIGA ); 
graton.Rsitua( 277, 30 ); 
i=0; 
do 
t 
graton.Rmuestra( FALSO ); 
clearviewport(); 
setcolor( LIGHTRED ); 
rectangle( 0, 0, 100, 40 ); 
outtextxy( 50, 10, "¿Nombre" ); 
outtextxy( 50, 20, " Archivo ?" ); 
outtextxy( 50, 30, NombreCursor); 
graton.Rsitua( 277+i*8,30 ); 
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graton.Rmuestra( VERDAD ); 
Tecla = getch(); 
if( Tecla == 0x0D ) Terminar = VERDAD; 
else 
if£( ( Tecla == 0x08 ) 8£ ( i>1) ) 
else 
if(i> 7) 1 Pitido(); i--; ) 
else 
NombreCursor[i] = Tecla; 


d++3 


while( !Terminar ); 
graton.Pon_Cursor( FLECHA ); 
graton.Rmuestra( FALSO ); 
clearviewport (); 
setviewport( 0, 0, getmaxx(), getmaxy(), VERDAD ); 
graton.Rmuestra( VERDAD ); 
for( i=7; i>=0; i-- ) 
£ 
if( NombreCursor[i] 
if( NombreCursor[i] 


.* ) NombreCursor[i] = '10'; 
* ) NombreCursor[i] = 'X0'; 


d' 
if( strlen( NombreCursor ) == 0) 
í Pitido(); return(0); ) 

HacerCursor(); 

strcpy( NombreArchivo, NombreCursor ); 

strcat( NombreArchivo, ".CUR" ); 

outtextxy( 320, 10, NombreArchivo ); 

CF = fopen( NombreArchivo, "w" ); 

fprint£( CF, "static g_cursor %s = In", NombreCursor ); 

fprint£( CF, 
" € 0x%04X, 0x%04X, 0x%04X, 0x%04X,1n", 
NuevoCursor.MascaraPantalla[0], 
NuevoCursor.MascaraPantalla[1], 
NuevoCursor.MascaraPantalla[2], 
NuevoCursor.MascaraPantalla[3] ); 

for( i=1; i<=3; i++ ) 

fprintf£( CF, 

% 0x%04X, 0x%04X, 0x%04X, 0x%04X,1n", 
NuevoCursor.MascaraPantalla[i*4 1], 
NuevoCursor.MascaraPantalla[i*4+1], 
NuevoCursor.MascaraPantalla[i*4+2], 
NuevoCursor.MascaraPantalla[i*4+3] ); 
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for( i1=0; i<=3; i++ ) 
fprintf( CF, 


is OxX%04X, 0x%04X, 0x%04X, 0x%04X,1n", 


NuevoCursor.MascaraCursor[i*4 ], 
NuevoCursor.MascaraCursor [i*4+1], 
NuevoCursor.MascaraCursor [1*4+2], 
NuevoCursor.MascaraCursor[i*4+3] ); 
fprintf£( CF, 
p. 0x%04X, 0x%04X JjAn", 
NuevoCursor.xcor, NuevoCursor.ycor ); 
foprint£ (CE, "Narda 
folose( CF ); 


return( 1 ); 
y 
main () 
( 


int Gcontrolador = DETECT, GModo, GError, Salir = 


FALSO, 4, j; 
Rresultado* Result; 


initgraph( £Gcontrolador, £GModo, "C:AMTCAABGI" 
GError = graphresult (); 
if( GError != gr0k ) 
Ñ 
printf( "Error Gráfico : %sin", 
grapherrormsg(GError) ); 
printf£f( "Programa abortado...in" ); 
exit (1); 
) 
cleardevice(); 
PresentaMenu(); 
Result = graton.Riniciar(); 
setwritemode( COPY_PUT ); 
if( Result->presente ) 
t 
do 
( 
Posicion = graton.Rpulsado( BotonlI ); 
if( Posicion.contador_boton ) 


1 
if( TPos( Posicion.ejey, 30, 270 ) ) 


5 


t // rejilla de ventana o de cursor 


dl 
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if( TPos( Posicion.ejex, 15, 255 ) ) 


PosPantalla( Posicion.ejex, Posicion.ejey ); 


if( TPos( Posicion.ejex, 384, 624 ) ) 
PosCursor( Posicion.ejex, Posicion.ejey ); 


J 


else // mandatos de pantalla o de cursor 
if( TPos( Posicion.ejey, 280, 300 ) ) 
t // items de la máscara de pantalla 
if( TPos( Posicion.ejex, 15, 75 ) ) 
LimpiaPantalla(); else 
if( TPos( Posicion.ejex, 85, 145 ) ) 
InviertePantalla(); else 
if( TPos( Posicion.ejex, 155, 295 ) ) 
PantallaDesdeCursor(); else 


// items de la máscara cursor // 
if( TPos( Posicion.ejex, 364, 484 ) ) 


' CursorEnPantalla(); else 
if( TPos( Posicion.ejex, 494, 554 ) ) 
InvierteCursor(); else 


if( TPos( Posicion.ejex, 564, 624 ) ) 
BorraCursor (); 
) 
else // opciones de los mandatos generales 
if( TPos( Posicion.ejey, 320, 340 ) ) 
1 
if( TPos( Posicion.ejex, 15, 125 ) ) 


UsarNuevoCursor (); else 
if( TPos( Posicion.ejex, 140, 250 ) ) 
graton.Pon_Cursor( FLECHA ); else 
if( TPos( Posicion.ejex, 265, 375 ) ) 
PonCuadroRojo(); else 
if( TPos( Posicion.ejex, 390, 500 ) ) 
GuardaApuntador (); else 


if( TPos( Posicion.ejex, 515, 625 ) ) 
Salir = VERDAD; 

AA: 

while( !Salir ); 
) 
traton.Riniciar(); 
traton.Pon_Cursor( HARDWARE, 11, 12 ); 
Pitido(); 


1% 


Botones, 
barras de desplazamiento 
y objetos de control 


Una consecuencia natural de la programación de gráficos y del uso del ratón 
es la incorporación de controles gráficos en las aplicaciones, 

Un primer paso en esta dirección fue la demostración del capítulo 16 sobre 
el objeto GRaton (a través de la utilidad RATONPTR). En ésta se manejaba 
una gran cantidad de controles a través del ratón. Cada uno de estos botones 
de control necesitaba un código específico para crear la imagen del botón, 
cribir un rótulo dentro de las s de estos y examinar las coordenadas del 
ratón cada vez que pulsara uno de aquellos para decidir qué control se había 
seleccionado, 

Cualquier cambio efectuado sobre la distribución de la pantalla sólo podía 
llevarse a cabo mediante la modificación de los elementos del programa que 
hubieran manipulado cada uno de estos elementos de control. Tanto la crea- 
ción como la revisión del programa suponía prestar demasiada atención al 
detalle, dando oportunidad a la aparición de errores. Es evidente que cuando 
existe una mínima posibilidad de error, los llamados principios universales se 
confabulan para asegurarse de la existencia de ese error. 

Obviamente existen formas de reducir las posibilidades de error sin nece- 
sidad de abandonar los controles gráficos. La creación de objetos gráficos de 
control (en lugar de los objetos gráficos individuales) ayuda a reducir o eli- 
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minar la cantidad de trabajo necesario para crear estos controles, por lo que 
son más aconsejables que los controles de las aplicaciones convencionales. 


Objetos gráficos de control 


Las extensiones proporcionadas por Turbo C++ a la programación orientada 
a objetos ofrecen diversas ventajas al programador. Una de las áreas en las 
que la ventaja es más vistosa (sólo en sentido visual) es la de la creación de 
objetos gráficos de control. 


En las aplicaciones gráficas, un objeto de control tiene que asumir cinco 
criterios principales, a saber: 


M crear y mantener su propia imagen sobre la pantalla. 

M cambiar su tamaño y su posición, si fuera necesario. 

M cambiar su apariencia de acuerdo con su función (los botones, por ejem- 
plo, cambian su estado visual para indicar un estado de selección o para 
marcar un objeto). 

M responder a un suceso provocado por el ratón directa o indirectamente 
(la exigencia mínima sería que un objeto fuera capaz de examinar las 
coordenadas del suceso en cuanto a su posición y su tamaño, y devol- 
viera un "acierto" cuando éste tuviera lugar). 

IM borrarse a sí mismo de la pantalla y, si fuera necesario, desalojarse de 
la memoria, 


Los objetos gráficos de control deberán realizar otras tareas, incrementan- 
do así su potencia; sin embargo, las mínimas son de obligado cumplimiento. 
En la programación convencional, los cinco apartados mínimos son los más 
complicados de desarrollar y los que necesitan un mayor tiempo de atención 
por parte del programador (tanto en el desarrollo de una aplicación como en 
una posterior revisión y depuración del programa). 

En el entorno de los objetos gráficos de control, el programador sólo ne- 
cesita prestar atención a una única ocurrencia de un tipo de objeto específico 
(la primera de las creadas). Una vez creada y depurada la primera ocurrencia 
de un objeto podrán crearse distintos clones de ésta (con diferencias, dupli 
dos y variaciones, si fuera necesario). sin que ninguna de las ocurrencias 
derivadas necesite ni ser depurada repetidamente ni resolver problemas. 


La creación de un nuevo tipo de objeto derivado de uno en funcionamiento 
requiere mucho menos tiempo y trabajo que el desarrollo de una propiedad 
nueva de éste con los métodos convencionales de programación, ya que gran 
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parte de la tarea se deriva del objeto progenitor y no necesita una repetición 
laboriosa. También se evita así la probabilidad de nuevos errores. 

Una vez creada una unidad (objeto) gráfica de control, y en caso de nece- 
sitar nuevos alicientes, pueden utilizarse los controles gráficos de la misma 
forma que si fuesen extensiones de Turbo Pascal (que lo son). 


Creación de los objetos gráficos de control 


La unidad gráfica de control (GCONTROL.!) proporciona los cuatro tipos de 
objetos, aunque sólo tres de ellos sean considerados objetos de control: Boton, 
RadioBoton y BarraDesp (barra de desplazamiento). El cuarto tipo, el medi- 
dor (VU_Metro), es una analogía gráfica de un antiguo dispositivo de sinto- 
nización o de medida, muy utilizado en aplicaciones electrónicas en épocas 
anteriores a los visualizadores digitales. 

Antes de examinar los objetos gráficos de control debe saberse que la 
unidad GControl utiliza, a su vez, la unidad MOUSE.I, ya que ésta suministra 
los distintos tipos de objetos ratón. 

Un tipo de objeto, Punto, se constituye en el progenitor principal de todos 
los tipos de objetos. 


El tipo de objeto Punto 


El objeto Punto se presenta como un progenitor genérico para todos los obje- 
tos gráficos. Aporta las variables básicas de posición y color, una variable de 
referencia para la restitución de los valores de la ventana gráfica, así como 
una gran variedad de procedimientos necesarios para la mayoría de los tipos 
de objetos derivados. (El tipo de objeto Punto ni se ilustra ni se muestra). 


class Punto 
1 
protected: 
int X, Y, Color; 
viewporttype VRef; 
public: 
Punto(); 
void Mover( int PtX, int PtY ); 
virtual void Dibujar(); 
void Crear( int PtX, int PtY, int C ); 
void RestaurarVentana(); 
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void PonColor( int C ); 

virtual void PonPos( int PtX, int PtY ); 
virtual void Borrar(); 

int TomaColor(); 

int TomaX(); 

int TomaY(); 


La verdadera razón por la que el objeto Punto aparece como un tipo dis- 
tinto, los elementos de datos del objeto Punto declarados como protegidos, y 
los procedimientos del objeto Punto declarados como públicos, es permitir la 
utilización de las variables del objeto Punto y de sus procedimientos. Pueden 
ser utilizados no sólo por los tipos de objetos vigentes, sino también por los 
otros tipos de objetos derivados que puedan crearse acudiendo a GCON- 
TROL.OBJ sin necesidad de tener que disponer del código fuente de la uni- 
dad. 

En caso de no estar familiarizado con la forma en que se crean los tipos 
de objetos derivados, se aconseja leer el libro Turbo C++ Programming: An 
Object-Oriented Approach, disponible también en la editorial Addison-Wes- 
ley. 


Punto::Punto() 


El tipo de objeto Punto se suministra junto a una gran variedad de procedi- 
mientos básicos, comenzando por el procedimiento constructor, Punto::Pun- 
to(), utilizado para iniciar una ocurrencia del objeto Punto. Cada tipo de ob- 
jeto derivado dispondrá de su propio procedimiento de iniciación y de su 
tratamiento particular. 


Punto: :Punto() 
1 
getviewsettings( £VRef ); 


En este caso, el procedimiento Punto no hace sino almacenar los paráme- 
tros de la ventana gráfica, vigentes en el momento de la creación del objeto. 


Punto::Crear() 


El procedimiento Crear del objeto Punto se invoca con tres argumentos: los 
dos primeros especifican su ubicación en la pantalla y el tercero el valor del 
color. Termina con la llamada al procedimiento Dibujar. 
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void Punto::Crear( int PtX, int PtY, int C ) 


1 
PonPos( PtX, PtY ); 
Color = C; 
Dibujar(); 
'Ñ 
Punto::Mover() 


El procedimiento Mover sólo admite dos parámetros coordenados. Desplaza 
un determinado objeto desde su posición vigente (mediante la llamada al 
procedimiento Borrar), cambiando las coordenadas de posición (con la llama- 
da a PonPos) y luego llamando al procedimiento Dibujar para volver a crear 
el objeto en su nueva ubicación. 


void Punto::Mover( int PtX, int PtY ) 


1 
Borrar(); 
PonPos( PtX, PtY ); 
Dibujar(); 

J 


Punto::Dibujar() 


El procedimiento Dibujar no necesita ningún argumento y se encarga de di- 
bujar el objeto sobre la pantalla. Para ello, hace uso de la posición del ele- 
mento objeto y del valor del color. En un principio, el procedimiento Dibujar 
sólo debería ser llamado por otros procedimientos objeto. Sin embargo, tam- 
bién podría ser llamado directamente por la aplicación si, por caso, otro pro- 
ceso hubiera reescrito la imagen del objeto y fuera necesario restituirla en la 
pantalla, 


void Punto: :Dibujar() 
t 
putpixel( x, y, Color ); 


Punto::RestaurarVentana() 


Gran parte, si no todos los objetos gráficos utilizarán el procedimiento set- 
viewport de Turbo C++ para establecer los valores locales de una ventana 
gráfica en las distintas operaciones realizadas sobre la pantalla. Los tipos de 
objetos aquí creados, antes de establecer sus propios valores de ventana grá- 
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fica, guardan los parámetros de ésta que pudieran existir cuando el objeto 
fuera creado por primera vez y, una vez completa su tarea, llaman al proce- 
dimiento RestaurarVentana para restituir los parámetros originales de la ven- 
tana gráfica almacenados en VRef. 


void Punto: :RestaurarVentana() 


t 
setviewport( VRef.left, VRef.top, VRef.right, 
VRef .bottom, VRef.clip ); 
y 
Punto::PonColor() 


El procedimiento PonColor proporciona un método para cambiar el color de 
una posible ocurrencia del tipo Punto, efectuando la reasignación del paráme- 
tro Color y la llamada al procedimiento Dibujar. 


void Punto::PonColor( int C ) 


t 
Color = C; 
Dibujar(); 
) 
Punto::PonPos() 


El procedimiento PonPos cambia las coordenadas de posición de un objeto; 
éstas serán heredadas por todos los tipos de objetos descendientes. 


void Punto: :PonPos( int PtX, int PtY ) 
t 

PtX + VRef.left; 

PtY + VRef.top; 


Ko» 
"ou 


Como se ha indicado, el procedimiento PonPos no hace sino cargar las 
coordenadas de posición en forma de desplazamiento relativo al origen de la 
ventana gráfica. Se llama desde los procedimientos Crear y Mover, ambos de 
tipo Punto y desde todos los descendientes, incluyendo la clase de objeto 
BarraDesp (Barra de Desplazamiento), que redefine este procedimiento pero 
que también llama al procedimiento progenitor de Punto. 
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Punto::Borrar() 


El procedimiento Borrar utiliza un entero local para guardar el elemento Color 
de la ocurrencia actual del objeto: luego cambia este color por el color de 
fondo, antes de llamar al procedimiento Dibujar para borrar la imagen de la 
pantalla y, por último, restituye en la variable Color el valor guardado. 


void Punto::Borrar() 


1 
int Temp; 
Temp = Color; 
Color = getbkcolor(); 
Dibujar(); 
Color = Temp; 
3 


Tres procedimientos de tipo función, TomaColor, TomaX y TomaY se 
encargan de devolver los valores de la ocurrencia del objeto a la aplicación 
de llamada, 


int Punto::TomaColor() í return( Color ); ) 
int  Punto::TomaX() í return( x ); ) 
int Punto: :TomaY() ( return( y ); J 


En el caso de las dos últimas funciones, los valores de la ventana gráfica 
corrigen los valores de la ocurrencia del objeto. Esto permite devolver los 
valores de los parámetros originales (o sus equivalentes) en caso de que la 
posición del objeto hubiera cambiado desde que éste fuera creado. En efecto, 
el sistema coordenado bajo el que un objeto ha sido creado sigue siendo 
válido para todas las llamadas de cualquier procedimiento a ese objeto (cosa 
que hace independiente al objeto de cualquier cambio en la ventana gráfica y 
simplifica enormemente las operaciones de éste). 


Acceso al ratón 


El archivo RATON.] contiene las declaraciones de dos ocurrencias estáticas 
de objetos ratón: graton, que es gráfico, y traton, que es una versión de texto. 
Por ello, los objetos gráficos definidos aquí pueden interactuar con autonomía 
con el ratón, en vez de confiar en que la aplicación proporcione información 
sobre los sucesos que le acontecen y sobre la posición de éste. 

La ocurrencia fraton permite al ratón restaurar el modo texto antes que el 
programa termine (vea GCONTROL.CPP). 
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El tipo de objeto Boton 


El tipo de objeto Boton es el objeto gráfico de control básico. Proporciona el 
análogo en pantalla del botón físico. Una ocurrencia de botón puede tener 
cualquiera de los tres estilos asociados a éste (consulte la Figura 17-1), que 
se definen como: 


TipoBoton = (REDONDO, CUADRADO, TRES_D ); 


El objeto Boton deriva directamente del tipo de objeto Punto, por lo que 
hereda la posición, el color y las variables que contienen los parámetros de la 
ventana gráfica, así como sus procedimientos. Boton añade nuevas variables: 


Existe, Estado, Rotado: booleanos; 

RetardoDoblePuls, DimFuente, TipoLetra, 
DimX, DimY: enteros; 

EsteBoton:TipoBoton; 

TextoBoton: cadena_40; 


EsteBoton por supuesto, describe el estilo del botón. Las variables DimX y 
DimY son también obvias. La variable TextoBoton es la cadena rotulada que 
se muestra dentro del botón, 

La variable booleana Estado indica si el botón está seleccionado o no y 
ofrece una realimentación visual en forma de inversión de color. Los indica- 
dores Existe y Rotado son internos ante todo y se discutirán más adelante. De 
la misma manera, DimFuente se carga normalmente por el propio objeto, 
mientras que TipoLetra es el estilo de la fuente gráfica que se utiliza para 
rotular el botón. 

La variable RetardoDoblePuls es un retardo de muestra para la selección 
efectuada por un ratón tras una doble pulsación. 


Figura 17-1 Tres estilos del objeto Boton 


Redondo Cuadrado | E 
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Los procedimientos Boton 


El tipo de objeto Boton define aproximadamente dos docenas de procedi- 
mientos, además de los heredados del tipo de objeto Punto. 

Si esto le suena demasiado fuerte para un simple objeto botón, recuerde 
que el hecho de que los procedimientos estén definidos no significa que esté 
obligado a utilizarlos. Además, el astuto enlazador de Turbo C++ sólo incluirá 
en el archivo compilado .EXE los procedimientos que vayan a ser utilizados. 
El hecho de que los procedimientos estén en la unidad objeto no significan 
que vayan a incluirse de hecho en el programa ,EXE. En este caso, el bloque 
de procedimientos tan sólo se define para permitir el acceso completo a todas 
las propiedades y características del botón. Los procedimientos están ahí, pero 
no tienen por qué ser utilizados, a no ser, por supuesto, que los necesite (en 
cuyo caso, su ausencia sería enojosa, no así su presencia). 


Boton::Boton() 


El primer procedimiento, como siempre, es el constructor, Boton::Boton, 
esencial para ocurrencias de objetos dinámicos. 


Boton: :Boton() 


t 

Rotado = FALSO; 

PonTipoDim( 2 ); 

PonTipoLetra( TRIPLEX_FONT ); 
y 

En este caso, el constructor no se ha sobrecargado para suministrar dos 
versiones. Aquí sólo se ha definido el constructor por omisión. Este se encar- 


ga de iniciar la orientación del botón, el tamaño del tipo y la fuente, pero no 
lo dibuja en la pantalla. Si se desea, se puede sobrecargar el constructor de la 
siguiente forma: 


Boton: :Boton (int PtX, int PtY, int Ancho, 
int Alto, int C, char* Texto) 


PonTipoDim (2); 

PonTipoLetra (TRIPLEX_FONT); 

Crear (int PtX, int PtY, int Ancho, 
int Alto, int C, char* Texto); 
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Boton::Crear() 


Para finalizar la tarea de iniciación de una ocurrencia de tipo botón dispone- 
mos del procedimiento Boton::Crear. 


void Boto: 


Crear( int PtX, int PtY, int Ancho, int Alto, 
int C, char* Texto ) 


getviewsettings( £VRef ); 

setviewport( 0, 0, getmaxx(), getmaxy(), VERDAD ); 
settextjustify( CENTER_TEXT, CENTER_TEXT ); 
PonPos( PtX, PtY ); 


El procedimiento Crear comienza con llamadas a otros procedimientos del 
tipo botón para efectuar la asignación de distintos parámetros. Al mismo tiem- 
po. se imponen determinadas condiciones por omisión tales como los paráme- 
tros de justificación del texto. Ancho y Alto reciben los valores mínimos por 
omisión. 


if( Ancho < 20 ) DimX 20; else DimX = Ancho; 
if( Alto < 20 ) DimY = 20; else DimY = Alto; 
if( DimY > DimX) Rotado = VERDAD; else Rotado = FALSO; 


El indicador Rorado viene determinado por la interrelación entre las di- 
mensiones vertical y horizontal del botón. Si el botón es más alto que ancho, 
entonces Rotado indicará que el rótulo del botón debe escribirse vertical y no 
horizontalmente. 

Por último, se producirá la carga de la variable Color del botón, la variable 
Estado se iniciará a FALSO, se cargará el rótulo de texto y, finalmente, se 
producirá la escritura del botón en la pantalla tras la llamada al procedimiento 
Dibujar. 


Color =C; 

Estado = FALSO; 

strcpy( TextoBoton, Texto ); 
Dibujar (); 


Boton::-Boton () 


El siguiente procedimiento del tipo Boton es el procedimiento destructor. El 
destructor es redundante respecto a las ocurrencias estáticas del botón, ya que 
para borrar la imagen de pantalla de un objeto puede llamarse directamente al 
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procedimiento Borrar. Sin embargo, cuando se utilizan objetos dinámicos, un 
procedimiento destructor es vital para permitir el ajuste de la memoria en el 
momento en que el objeto deja de ser utilizado. 


Boton: :-Boton() 
1 
Borrar(); 


Este procedimiento destructor también será referido de forma explícita 
mediante una instrucción que llame al procedimiento Borrar de forma que se 
produzca el borrado de la imagen de la pantalla cuando la ocurrencia de un 
objeto vea terminado su alcance. 


Boton::Dibujar () 


El procedimiento Dibujar genera la imagen de un objeto sobre la pantalla. El 
objeto botón puede tener tres estilos diferentes, así como tamaños y orienta- 
ciones variables para los rótulos. De ahí que el procedimiento Dibujar sea 
relativamente complicado y arrastre diversas condiciones preexistentes tales 
como los valores del color y de la ventana gráfica para que puedan ser resti- 
tuídos con sus valores previos cuando la imagen esté completa. 


void Boton: :Dibujar() 


f 
int i, radio = 6, Desp = 3, AlignX, AlignY; 
Borde RectArr; 


Antes de dibujar nada deberá llamarse al objeto interfaz del ratón gráfico 
para desactivar el cursor de éste, independientemente de la posición de la 
pantalla donde pueda estar, con objeto de que no interfiera con la nueva 
imagen de la pantalla. 


graton.Rmuestra( FALSO ); 


A continuación, se creará una ventana gráfica para limitar las operaciones 
de trazado al área del botón, Esto activa la justificación del texto y el color 
de dibujo. 


setviewport( x, y, X+DimX, y+DimY, VERDAD ); 
settextjustify( CENTER_TEXT, CENTER_TEXT ); 
setcolor( Color ); 
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El dibujo de la imagen del botón con el estilo CUADRADO es muy sen- 
cillo. Para ello tan sólo es necesaria la llamada a la función rectangle. 


switch( EsteBoton ) 
sE 
case CUADRADO: 
f rectangle( 0, 0, DimX, DimY ); 
break; 
J 


El rótulo del botón se añadirá posteriormente. 

Las operaciones necesarias para dibujar el botón con el estilo TRES_D 
resultan algo más complejas, ya que se requiere un rectángulo exterior, un 
sombreado, un rectángulo interior y, por último, cuatro líneas para completar 
la imagen 3-D. 


case TRES_D: // Borde 3 Dimensiones // 

i rectangle( 0, 0, DimX, DimY ); 
RectArr[0] = RectArr[2] = RectArr[8] 
RectArr[1] = RectArr[7] = RectArr[9] 
RectArr[4] = RectArr[6] = DimX-1; 
RectArr[3] = RectArr[5] = DimY-1; 
setfillstyle( CLOSE_DOT_FILL, Color ); 
setlinestyle( USERBIT_LINE, 0, NORM_WIDTH ); 
fillpoly( 5, RectArr ); 
setlinestyle( SOLID LINE, 0, NORM_ WIDTH ); 


1; 


rectangle( 2*radio, 2*radio, 

DimX-2*radio, DimY-2*radio ); 
line( 0, o, 2*radio, 2*radio d; 
line( 0, DimY, 2*radio, DimY-2*radio ); 
line( DimXx, O, DimX-2*radio, 2*radio » 
line( DimX, DimY, DimX-2*radio, DimY-2*radio ); 
break; 


El caso por omisión, REDONDO, es el más complicado de todos porque 
el contorno del botón se construye con cuatro arcos parciales en las esquinas 
y Cuatro líneas para completar los laterales. 


case REDONDO: 


t // dibuja las esquinas // 
arc( DimX-radio, radio, 0, 90, radio ); 
arc( radio, radio, 90, 180, radio ); 


arc( radio, DimY-radio, 180, 270, radio ); 
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arc( DimX-radio, DimY-radio, 270, 360, radio ); 
// dibuja los lados // 
line( radio, 0, DimX-radio, 0 di 
line( radio, DimY, DimX-radio, DimY Y; 
line( 0, radio, 0, DimY-radio ); 
line( DimX, radio, DimX, DimY-radio ); 


E: 


A continuación se utiliza una sentencia Case distinta para llenar RectArr 
con las coordenadas del centro de cada estilo de botón. 


switch( EsteBoton ) /1 Lotón de rellenar // 

íf case CUADRADO: 
case REDONDO: 
[ Rectarr[0] RectArr[2] Rectarr[8] = 
RectArr [1] RectArr[7] RectArr[9] = Desp; 
RectArr[4] Rectarr[6] = DimX-Desp; 

Rectarr[3] = Rectarr[5] = DimY-Desp; break; ) 
case TRES_D: 

[ HRectArr[0] = RectArr[2] = RectArr[8] = 
RectArr[1] = RectArr[7] = RectArr[9] = 2*radio+1; 
Rectarr[4] = RectArr[6] DimX-2*radio-1; 
RectArr[3] = RectArr[5] = DimY-2*radio- 


AE 


Luego se ejecuta el relleno de acuerdo con el valor de la variable Estado 
del botón, utilizando el procedimiento fillpoly con un estilo de línea vacía 
para el contorno del área rellena. 


if( Estado ) setfillstyle( SOLID_FILL, Color ); 
else setfillstyle( CLOSE_DOT_FILL, Color ); 
setlinestyle( USERBIT_LINE, 0, NORM_WIDTH ); 
fillpoly( 5, RectaArr ); 
setlinestyle( SOLID_LINE, 0, NORM_WIDTH di 
justa la' fuente y la cadena convenientemente // 


aj 


Una vez completa la imagen del botón, se hace necesaria la escritura del 
rótulo, pero, antes de imprimir la cadena de texto deberá determinarse la 
dirección de éste. 


settextstyle( Tipoletra, Rotado, DimFuente ); 
AlignX = (DimX/2)-3; 
AlignY = (DimY/2)-3; 
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Por último, si el valor del Estado del botón está activo, el rótulo necesitará 
escribirse con el color de fondo en vez de utilizar el color del propio botón. 


if( Estado ) setcolor( getbkcolor() ); 
outtextxy( AlignX, AlignY, TextoBoton ); 
if( Estado ) setcolor( Color ); 
graton.Rmuestra( VERDAD ); 
RestaurarVentana(); 


El resto del proceso consiste en vigilar, restituir los valores originales de 
la ventana gráfica, hacer visible de nuevo el cursor del ratón y restituir el 
color de dibujo original. 


Boton::Borrar() 


El procedimiento Borrar no interfiere con el procedimiento Dibujar; sólo res- 
tituye la ventana gráfica antes de utilizar la orden clearviewport para borrar 
la imagen de la pantalla. Observe que el cursor del ratón se desactiva antes 
que la pantalla se borre y se restituya posteriormente. 


void Boto; 
de 


Borrar () 


graton.Rmuestra( FALSO ); 

setviewport( Xx, y, Xx+DimX, y+DimY, VERDAD ); 
clearviewport (); 

RestaurarVentana (); 

graton.Rmuestra( VERDAD ); 


Boton::BotonPulsado () 


El procedimiento BotonPulsado es común a todos los objetos gráficos de 
control. Devuelve un entero (booleano) a la aplicación de llamada, confirman- 
do la selección de un botón mediante una pulsación de ratón. 


int Boto; 
1 


BotonPulsado() 


Restado P = graton.Rpulsado( Botonl ); 


Para crear el procedimiento BotonPulsado pueden seguirse un par de cami- 
nos. Una opción consiste en pasar coordenadas del ratón al procedimiento 
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BotonPulsado. Esta opción debería rechazarse puesto que aporta una dificul- 
tad innecesari 
En cambio, cuando se intenta comprobar el funcionamiento del procedi- 
miento BotonPulsado, él mismo llama a graton para pedir el estado del botón 
del ratón y las coordenadas de éste. 
Para comprobar el suceso de una pulsación válida se llevan a cabo cuatro 
exámenes booleanos conectados vía AND, dentro de una condición ¿f. 


if( ( P.ejex >= x ) 68 ( P.ejex <= x+DimX ) Eb 
( P.ejey >= y ) ££ ( P.ejey <= y+DimY ) ) 


Si ha tenido lugar una pulsación, entonces se llama al procedimiento In- 
vertir para cambiar la imagen de la pantalla antes de informar de los resulta- 
dos a la aplicación de llamada. 


Invertir(); 
return( VERDAD ); 
) 
return( FALSO ); 


Por supuesto, si no hubiera tenido lugar ninguna pulsación, por omisión se 
devolvería un resultado FALSO. 

El resto de los procedimientos proporcionados por el objeto Boton son 
autoexplicativos y no se comentarán en detalle. 


El tipo de objeto RadioBoton 


El tipo objeto RadioBoton es un botón circular. Normalmente se utili 
grupos en los que sólo uno de ellos puede ser seleccionado en un instante 
determinado. No se incorpora la posibilidad de cancelar un grupo de radiobo- 
tones en el momento de la selección de un botón nuevo; esto debe ser contro- 
lado por la aplicación. En la Figura 17-2 aparece la selección de objetos del 
tipo RadioBoton. 

El tipo de objeto RadioBoton, como descendiente del tipo de objeto Boton, 
hereda distintas variables aunque no todas ellas; además, no todos los proce- 
dimientos heredados serán utilizados o aplicables a él. 

En cambio, RadioBoton incorpora dos nuevas variables enteras: Borde, 
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que definirá el color del contorno de este tipo de botón, y Radio, que guardará 
el tamaño del botón. 


RadioBoton::RadioBoton () 


RadioBoton se incorpora con un procedimiento constructor sobrecargado tan- 
to para el proceso de iniciación por omisión como para el de iniciación de 
parámetros, de la misma forma que lo hace el tipo de objeto Boton. 


RadioBoton::RadioBoton() ( ) 
RadioBoton::RadioBoton( int PtX, int PtY, int C, int R, 
char* Texto ) 
t 
Crear( PtX, PtY, C, R, Texto ); 
) 


El segundo procedimiento constructor tan sólo llama al procedimiento 
Crear para pasar la lista de parámetros, no asignándosele ninguna tarea explí- 
cita, 


RadioBoton::-RadioBoton () 


Una vez más, por las mismas razones citadas para el objeto Boton, el destruc- 
tor se incorpora con una instrucción que llama al procedimiento Borrar antes 
que la ocurrencia del objeto haya terminado. 


RadioBoton::-RadioBoton() [ Borrar(); ) 


RadioBoton::Crear () 


El procedimiento Crear del radiobotón se llama con los parámetros de posi- 
ción, color y radio del botón, así como con una cadena de texto limitada 
nominalmente a una longitud de 10 caracteres. 


void RadioBoton::Crear( int PtX, int PtY, int C, int R, 
char* Texto ) 
t 
getviewsettings( £VRef ); 
settextjustify( CENTER_TEXT, CENTER_TEXT ); 
PonPos( PtX, PtY ); 
Radio = R; 


Tras preservar los valores de la ventana gráfica y dar valores iniciales a las 
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variables de radio y posición, se asigna el color del contorno al operar en OR 
el parámetro del color y la constante 08h, de forma que siempre tenga el bit 
de intensidad activo. En caso de utilizar una variante de la paleta de colores, 
puede que haya que modificar este planteamiento. 


Borde = C | 0x08; 

Color Cc; 

Estado = FALSO; 

strcpy( TextoBoton, Texto ); 
Dibujar(); 


J 


Las variables Color, Estado, Existe y TextoBoton se activarán antes de 
llamar al procedimiento Dibujar. 


RadioBoton::Dibujar () 


El procedimiento Dibujar está redefinido porque el objeto RadioBoton nece- 
sita un conjunto diferente de instrucciones para dibujar y crear formas distin- 
tas. Además, con el radiobotón, las componentes x,y se convierten en las 
componentes del centro de la imagen del botón, en vez de indicar la coorde- 
nada de la esquina de un botón rectangular. ' 


void RadioBoton::Dibujar() 


E 
int Xasp, Yasp, 1, ColorAnt = getcolor(); 


RestaurarVentana (); 
getaspectratio( £Xasp, £Yasp ); 
setcolor( Borde ); 
graton.Rmuestra( FALSO ); 


Antes de dibujar la imagen del objeto, se guardarán los valores del color 
y de la ventana gráfica, y se ocultará el puntero del ratón. Posteriormente se 
seleccionará el estilo de relleno junto al color adecuado para mostrar el valor 
del Estado de la ocurrencia de RadioBoton. 


if£( Estado ) setfillstyle( SOLID_FILL, Color ); 

else setfillstyle( INTERLEAVE_FILL, Color ); 

fillellipse( x, y, Radio, Radio * (double) (Xasp / Yasp) 
y 


Para dibujar la imagen del botón se llama a la función fillellipse, con las 
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RadioBoton 


consiguientes correcciones del factor de aspecto, A continuación, se dibuja el 
contorno del botón con el color del Borde y se procede al relleno con el patrón 
y el color del botón. 

Las ocurrencias del tipo objeto RadioBoton son demasiado pequeñas para 
contener un rótulo de texto. Por ello, se escribe el rótulo TextoBoton centrado, 
debajo de la imagen del botón, antes que se produzca la restitución del pun- 
tero del ratón y del color original. 


settextstyle( DEFAULT_FONT, HORIZ_DIR, 1 ); 
outtextxy( Xx, y + Radio + 10, TextoBoton ); 
graton.Rmuestra( VERDAD ); 

setcolor( ColorAnt ); 


orrar () 


Para el tipo de objeto Boton, el procedimiento Borrar utilizaba los valores de 
la ventana gráfica y hacía uso de la función clearviewport para borrar la 
imagen del botón. Esto mismo podría haberse aplicado al radiobotón, aunque 
no hubiera sido el medio más práctico, puesto que el rótulo del botón podría 
omitirse para conseguir una mayor aproximación entre los botones o bien 
incluirse para crear un mayor espaciamiento entre ellos. Por otra parte, para 
borrar el radiobotón, el procedimiento Borrar actúa de una forma diferente, 
cambiando los valores de Color y Borde por el valor del color de fondo y 
luego llamando al procedimiento Dibujar para eliminar la imagen de la pan- 
talla. 


void RadioBoton::Borrar() 


t 
int ColorAnt = Color; 
Color = getbkcolor(); 
Borde = Color; 
Dibujar (); 
Color = ColorAnt; 
Borde = ColorAnt | 0x08; 
) 


Una vez que el procedimiento Dibujar ha terminado, se restituyen los va- 
lores de los colores originales para que RadioBoton pueda crearse de nuevo 
en otra posición, si es necesario. 
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RadioBoton::BotonPulsado () 


El procedimiento BotonPulsado del tipo de objeto RadioBoton también es 
distinto. 


int RadioBoton::BotonPulsado() 
£ 
int DespX, DespY; 


Restado P = graton.BotonPulsado( Botonl ); 
DespX = abs( P.ejex - Xx ); 
DespY abs( P.ejey - y ); 


En este caso, las componentes coordenadas del ratón se transforman en 
desplazamientos desde la posición central del radiobotón (desplazamientos 
que se calculan como distancias absolutas, en lugar de hacerlo como valores 
con signo). 

Si comparamos el desplazamiento en forma de longitud de hipotenusa con 
el radio del botón veremos que hay una cierta tendencia (cuando los valores 
son grandes, porque el ratón no está próximo al botón) a crear un error en 
coma flotante. Por consiguiente, se efectúan dos pruebas de desplazamiento 
para decidir si el suceso del ratón está próximo al botón examinado. 


i£( ( DespxX < 2 * Radio ) £6 ( DespY < 2 * Radio ) ) 


Si el suceso del ratón está, como mínimo, en el entorno inmediato del botón, 
entonces se examinará la posibilidad de que el botón haya sido pulsado. 


if( hypot( DespX, DespY ) < Radio ) 
t 

Invertir(); 

return( VERDAD ); 


pl 
return( FALSO ) 


Si hubiera tenido lugar una pulsación, entonces el estado del botón se 
cargaría con el valor VERDAD y los resultados se devolverían a la aplicación 
de llamada. 

Con los controles de un RadioBoton, los botones no pueden desactivarse 
mediante una pulsación del ratón. En cambio, si se hubiera activado un botón 
nuevo, cualquier otro seleccionado previamente y activo hasta ese momento 
podría desactivarse con el procedimiento heredado PonEstado (igual que su- 
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cede con el selector de emisoras del aparato de radio de un vehículo). Sin 
embargo, dado que la clase del objeto no sabe cuántas ocurrencias del botón 
de radio existen, dependerá de la aplicación el control de la desactivación de 
estos, como se demuestra en GCONTRL.CCP, 

Los procedimientos del tipo RadioBoton PonRadio y TomaRadio debieran 
ser autoexplicativos. 


El tipo de objeto BarraDesp 


El tercer tipo de objeto de control proporcionado por la unidad GControl es 
el objeto BarraDesp, probablemente el más usado de todos los dispositivos de 
control desde que se utiliza, de una u otra forma y virtualmente, en las apli- 
caciones gráficas que necesitan extenderse más allá de los límites o 
la pantalla gráfica. 

En este ejemplo, las barras de desplazamiento contemplan topes cuadrados 
para el deslizador y un deslizador cuadrado susceptible de ser manipulado con 
un ratón para controlar los parámetros de posición de la aplicación de llama- 
da. En otros desarrollos, el deslizador podría tener una anchura variable y así 
mostrar no sólo una posición dentro del intervalo sino también la porción del 
intervalo global que se muestra en la pantalla vigente. Esta floritura se deja 
como ejercicio a los lectores que deseen crear barras de desplazamiento en 
sus propias aplicaciones. En la Figura 17-2 aparecen dos barras de desplaza- 
miento, una horizontal y otra vertical. 

Junto a las barras de desplazamiento se declara un nuevo tipo enumerado: 
TipoPulsado. 


typedef enum (NO_PULSADO, DERECHA, ARRIBA, BARRAH, 
BARRAV, IZQUIERDA, ABAJO) TipoPulsado; 


El tipo de objeto BarraDesp, considerado como un descendiente del tipo 
Boton, hereda todas las variables y procedimientos de sus progenitores, Punto 
y Boton, aunque también genere nuevas variables. 


class BarraDesp : public Boton 
t 
private: 
int ColorLinea, SPos, Paso, DirDesp; 


La variable DirDesp indica la orientación, vertical u horizontal de cada 
elemento del tipo barra de desplazamiento. La variable ColorLinea es el color 
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utilizado para dibujar la imagen del objeto, SPos es la posición del deslizador 
en la barra y Paso es un valor incremental para el desplazamiento del desli- 
zador, 


BarraDesp::BarraDesp() 


La clase de objeto BarraDesp viene dada con un procedimiento constructor 
sobrecargado; en esta ocasión, el procedimiento constructor por omisión no 
realiza más que un simple proceso de iniciación del objeto. 


BarraDesp::BarraDesp() 
( 
x= y = DimX = DimY = Color = 
ColorLinea = SPos = Paso = DirDesp = 0; 
) 


Si BarraDesp se iniciara sin argumentos, todas las variables se cargarían 
con un valor cero, por precaución. Una vez conformada la lista de argumentos 
se procedería a la llamada del procedimiento Crear. 


BarraDesp::BarraDesp( int PtX, int PtY, int Dimension, 
int C1, int C2, int Orientacion ) 


Iniciar( PtX, PtY, Dimension, C1, C2, Orientacion ); 


BarraDesp::Iniciar() 


Este procedimiento Iniciar es similar al de los ejemplos anteriores. Genera una 
barra de desplazamiento con una ubicación determinada (PiX y PrY), una 
longitud (Dimension), un contorno y unos colores de la imagen (C/ y C2) y 
una Orientación, 


void BarraDesp::Iniciar( int PtX, int PtY, int Dimension, 
int C1, int C2, int Orientacion ) 


getviewsettings( S£VRef ); 
if( Dimension < 100 ) Dimension = 100; 


En este caso, se elegirá de manera arbitraria una anchura de 20 pixels y 
una longitud mínima (Dimension) de 100 pixels. 

La posición inicial del deslizador será la parte izquierda o la parte superior 
de una barra de desplazamiento (dependiendo de la orientación) y se despla- 
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zará desde el final físico en 21 pixels (la anchura de la barra) para dejar hueco 
al cuadrado terminal. 


DirDesp = Orientacion; 
SPos = 21; 
Paso = Dimension / 100; 


Paso recibirá un valor inicial de 100 unidades sobre la longitud total de la 
barra, con ajustes de 100 en 100 unidades. La longitud de la barra de despla- 
zamiento no se fija en este momento ya que así puede ajustarse, en caso de 
ser necesario, a la ventana gráfica, Este es un área en el que las barras de 
desplazamiento demasiado cortas pudieran necesitar de una revisión en el 
algoritmo pero, por el momento, se utiliza el algoritmo cuanto más sencillo, 
si menos adaptable... 

Los valores DimX y DimY se ajustan en la orientación horizontal o vertical. 
Las variables heredadas P1X y PrY se ajustan, si es necesario, de forma que 
aporten espacio a la dimensión final de la barra. 


switch( DirDesp ) 
t 
case VERT_DIR: 
t 
Dimx 20; 
DimY = Dimension; 
while( PtX + DimX > VRef.right ) PtX--; 
break; 


case HORIZ_DIR: 
5 

DimX = Dimension; 

DimY = 20; 

while( PtY + DimY > VRef.bottom ) PtY--; 
) 


Observe que el tamaño de Paso ya no se vuelve a ajustar, aunque la lon- 
gitud de la barra haya cambiado (un factor que debería revisarse si la aplica- 
ción tuviera otras necesidades). Asegúrese de la existencia de un Paso mínimo 
de un pixel. En caso contrario sería muy complicado desplazarlo. 


PonPos( PtX, PtY ); 
ColorLinea = C1; 
Color = C2; 
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Dibujar(); 


Crear finaliza con la llamada al procedimiento Dibujar. 


BarraDesp::Dibujar() 


Esta versión del procedimiento Dibujar llama a otros procedimientos privados 
de la barra de desplazamiento, comenzando con PonBorde para crear un con- 
torno para la barra en forma de barra sólida, borrando luego el centro de ésta. 


void BarraDesp::Dibujar() 


t 
int ColorAnt = getcolor(); 
PonBorde (); 


A continuación, se dibujan las flechas en los extremos de la barra y, por 
último, se crea el deslizador. 


PonFlechas (); 
PonDeslizador(); 
setcolor( ColorAnt ); 


Los procesos involucrados en el dibujo de la imagen de la barra de despla- 
zamiento son absolutamente convencionales, pudiéndose ver en el listado del 
programa. 


BarraDesp::PulsarBarraDesp() 


El procedimiento booleano PulsarBarraDesp utilizado anteriormente es, a du- 
ras penas, suficiente para utilizarse con un objeto BarraDesp, ya que puede 
que la aplicación necesite saber cuándo ha tenido lugar una pulsación del 
ratón y así responder adecuadamente. Por otra parte, el procedimiento Pulsar- 
BarraDesp devuelve un TipoPulsado, informando del momento en que se ha 
producido una pulsación sobre uno de los cuadrados terminales (y en cuál), 
sobre el deslizador, o sobre algún lugar a lo largo de la barra. 


TipoPulsado BarraDesp::PulsarBarraDesp() 
1 
TipoPulsado Result = NO_PULSADO; 
int NPos = 0; 
Restado P = graton.BotonPulsado( BotonI ); 
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Al igual que los anteriores objetos de control, el procedimiento PulsarBa- 
rraDesp pregunta directamente al ratón por el estado del botón y por la posi- 
ción del cursor, utilizando una serie de pruebas para saber cuándo ha tenido 
lugar una pulsación. 


switch( DirDesp ) 
t 
case VERT_DIR: 
if( ( P.ejex >= x ) 88 ( P.ejex <= x+20 ) 88 
( P.ejey >= y ) ) 


if( P.ejey <= y+20 ) Result = ARRIBA; 
else 

if( P.ejey <= y+DimY-31 ) Result = BARRAV; 
else 

if( P.ejey <= y+DimY ) Result = ABAJO; 
break; 


case HORIZ_DIR: 
if( ( P.ejey >= y ) 8£ ( P.ejey <= y+20 ) £8 
( P.ejex >= x ) ) 


if( P.ejex x+20 ) Result = IZQUIERDA; 
else 

if( P.ejex <= x+DimX-31 ) Result = BARRAH; 
else 

if( P.ejex <= x+DimX ) Result = DERECHA; 


Una vez finalizada la prueba, si hubiera tenido lugar una pulsación válida, 
la posición del deslizador se modificaría de acuerdo con el tipo de pulsación. 
Por supuesto, si no ha tenido lugar ninguna pulsación, se informará de ello 
inmediatamente. 


if( Result == NO_PULSADO ) return( Result ); 
switch( Result ) 


4 
case IZQUIERDA: 
case ARRIBA: NPos = SPos-Paso; break; 
case DERECHA: 
case ABAJO: NPos = SPos+Paso; break; 
case BARRAH: NPos = P.ejex - ( x + 10 ); break; 
case BARRAV; NPos = P.ejey - ( y + 10 ); 

) 


Dos pruebas precautorias nos aseguran que la posición actualizada está en 
el rango de validez. 
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if( NPos < 21 ) NPos = 21; 
switch( Result ) 


1 
case IZQUIERDA: 
case DERECHA: if( NPos > DimX-41 ) NPos = DimX-41; 
break; 
case ARRIBA: 
case ABAJO: if( NPos > DimY-41 ) NPos = DimY-41; 
) 


Por último, una vez verificada la nueva posición del deslizador (NPos), el 
cursor del ratón se desactiva, el deslizador se borra, la nueva posición se 
asigna y se crea la imagen del nuevo deslizador antes de restituir el cursor del 
ratón. 


graton.Rmuestra( FALSO ); 
BorrarDeslizador (); 

SPos = NPos; 
PonDeslizador (); 
graton.Rmuestra( VERDAD ); 
return( Result ); 


Este es otro ejemplo, como Boton y RadioBoton, en el que el objeto de 
control actúa en general por sí mismo, antes de informar de los resultados a 
la aplicación de llamada. Por lo tanto, los resultados sobre la pulsación sólo 
se devuelven a la aplicación de llamada cuando BarraDesp se ha preocupado 
por actualizar su propia imagen. 

La posibilidad de actuar de forma autónoma es uno de los puntos fuertes 
de los objetos gráficos de control. Sin embargo, esta posibilidad está limitada 
por las opciones de que dispone el programador, 

Las posibilidades del procedimiento BarraDesp no se amplían al control de 
la aplicación de llamada. Esta tiene que ejecutar su propia respuesta a los 
cambios de posición del deslizador de la barra de desplazamiento. 


BarraDesp::TomaPosicion() 


Un suceso de pulsación en una barra de desplazamiento probablemente no sea 
una información suficiente para que la aplicación de llamada decida qué res- 
puesta debe adoptar. Por ello, el procedimiento TomaPosicion devuelve la 
posición del deslizador dentro de la barra de desplazamiento. 


int BarraDesp::TomaPosicion() f return( SPos ); ) 
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La posición del deslizador puede que no signifique mucho para la aplica- 
ción, ya que se trata de una posición relativa dentro de la barra de desplaza- 
miento, pero en términos absolutos seguro que no significa nada. 


BarraDesp::TomaPorcentaje() 


Existe un procedimiento más sencillo para informarse sobre la posición rela- 
tiva de un objeto BarraDesp (el procedimiento TomaPorcentaje, que devuelve 
un tanto por ciento entero en función de la posición del deslizador en la 
barra). 


int BarraDesp::TomaPorcentaje() 


( 
switch( DirDesp ) 
1 
case HORIZ_DIR: 
return( 100* (double) (SPos-21) / (double) (DimX-41)); 
case VERT_DIR: 
return(100* (double) (SPos-21) / (double) (DimY-41)); 
a) 


Esta información puede ser utilizada por la aplicación de llamada para 
cualquier propósito, como se verá en la demostración GCONTROL. 


El tipo de objeto medidor (VU-Metro) 


El medidor no es un objeto gráfico de control en sí mismo, sino un sencillo 
dispositivo de medida basado en un conocido dispositivo electrónico anterior 
a los instrumentos de estado sólido y de información digital. Este dispositivo 
muestra un sector de tarta, (medidor analógico en el rango de O a 360 grados). 
En la Figura 17-2 aparece un ejemplo de objeto medidor. 

El tipo de objeto medidor es un descendiente del tipo RadioBoton. Declara 
una única variable entera, Angulo que coincide con el grado de cierre del 
medidor, y un par de procedimientos especializados en el control del grado de 
apertura o cierre. 

El objeto medidor no tiene características especiales, en términos de gráfi- 
cos orientados a objetos, que no hayan sido demostradas ya, por lo que se deja 
como ejercicio práctico. 
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Figura 17-2 Demostración de los objetos de control gráfico 


Azul Claro 


Medidor 


Otros objetos de medida 


Existe una gran variedad de objetos de medida, desde los medidores de sinto- 
nía "ojo de gato", que tuvieron una gran variedad de aplicaciones en los 
primeros equipos electrónicos y de radio, hasta los medidores convencionales 
de "aguja móvil", utilizados en equipos VOM, tableros de automóviles y al- 
gunas o aplicaciones a lo largo de un siglo o más. 

Quizá todo ello suene a antiguo, pero los objetos barra de desplazamiento 
tan sólo son analogías visuales de los potenciómetros de barra deslizante, 
mientras que los objetos de tipo Boton, lo son de los interruptores físicos de 
botón. 

La razón por la que se usan estos objetos radica en que las analogías 
visuales de instrumentos no digitales son, con frecuencia, más fáciles de en- 
tender que visualizadores digitales. Yo no recomendaría su uso en todas las 
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aplicaciones aunque, de manera ocasional, pudieran ser preferibles a los vi- 
sualizadores digitales más convencionales. 

En la demostración GCONTROL se muestra el uso del medidor en una 
aplicación muy sencilla. 


La demostración GCONTROL 


El programa de demostración GCONTROL es un ejemplo muy sencillo que 
utiliza dos objetos BarraDesp para la posición, ocho objetos RadioBoton para 
los colores y un medidor que totaliza las posiciones porcentuales de las dos 
barras de desplazamiento. Además utiliza un único objeto Boton que se ubica 
junto a las barras de desplazamiento, cambia de color en respuesta a los 
radiobotones y termina la demostración cuando, siendo apuntado por el ratón, 
se pulsa una tecla de éste. 

La demostración GCONTROL utiliza el objeto ratón que apareció anterior- 
mente y los objetos gráficos de control (GCONTROL.I) creados en este capí- 
tulo, 

Una vez suministrados estos fuentes de biblioteca, el programa de demos- 
tración GCONTROL en sí es muy sencillo. Consta de varias declaraciones de 
variables de objetos y de la función principal (sin subprocedimientos). 

Las declaraciones de variables, sin embargo, merecen unos comentarios: 


Restado Posicion; 


La variable Posicion permite el acceso al ratón pero, por favor recuerde, 
el programa no declara ningún objeto ratón, ya que RATON.I ya ha introdu- 
cido estas declaraciones. 

GCONTROL.I no puede declarar las ocurrencias específicas de los objetos 
que el programa va a utilizar, sólo los tipos de objetos. Por lo tanto, en las 
declaraciones de GCONTROL.CPP, las ocurrencias de los objetos que vayan 
a utilizarse se definirán como: 


BarraDesp DespHoriz, DespVert; 
Medidor OjoDeGato; 
RadioBoton  RBoton[7]; 

Boton BotonSalida; 


Las dos ocurrencias de la barra de desplazamiento se declaran con nombres 
específicos, pero las ocurrencias del RadioBoton se declaran como un array 
de ocurrencias de objetos. 
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El programa de demostración comienza con la llamada al procedimiento 
Riniciar del ratón gráfico para capacitar las operaciones gráficas de éste. Ade- 
más examina el valor devuelto para asegurarse de que el ratón está presente 
antes de continuar. 


if (Igraton.Riniciar()) exit(1); 


A continuación viene el proceso de iniciación individual de todas las ocu- 
rrencias de objetos. Todas ellas son estáticas, por lo que los procedimientos 
constructores por omisión (sin argumentos) ya han sido llamados implícita- 
mente. A continuación se llama a los procedimientos Crear con las listas de 
argumentos que califican a cada objeto. 


for( i=RMin; i<=RMax; i++ ) 
RBoton[i].Crear( 50, 360-(45*i), i+9, 10, 
TipoColor[i] ); 
OjoDeGato.Crear( 50, getmaxy()-50, LIGHTRED, 20, 
"Medidor" ); 


Antes de instalar las dos barras de desplazamiento se reduce la ventana 
activa para excluir la parte izquierda de la pantalla, lugar en el que se encuen- 
tran los radiobotones y el medidor. Los parámetros de la ventana gráfica se 
guardan haciendo uso de la variable VRef. 


setviewport( 100, 0, getmaxx(), getmaxy(), VERDAD ); 
getviewsettings( £VRef ); 
DespHoriz.Iniciar( 0, getmaxy(), 
VRef .right-VRef.left-40, 
GREEN, LIGHTGREEN, HORIZ_DIR ); 
DespVert.Iniciar( getmaxx()-VRef.left-20, 0, getmaxy(), 
GREEN, LIGHTGREEN, VERT_DIR ); 


Los parámetros de posición y de tamaño de la barra de desplazamiento se 
expresan en términos relativos a la ventana gráfica actual, en lugar de intentar 
calcular los valores que debieran utilizarse. 

El procedimiento Boton::Crear se llama de forma similar. La llamada se 
produce con dos parámetros devueltos por las ocurrencias de BarraDesp. 


BotonSalida.PonTipoBoton( REDONDO ); 
BotonSalida.Crear( DespHoriz.TomaPosicion()-20, 
DespVert.TomaPosicion(), 
80, 20, LIGHTRED, "Salir" ); 
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Recuerde, cada una de las ocurrencias de estos objetos de control incluye 
un registro con los parámetros de la ventana gráfica en el momento de su 
creación. El registro servirá para restituir la ventana gráfica por omisión con 
estos valores. Las ocurrencias de Medidor y de RadioBoton se encuentran 
fuera de la ventana gráfica creada para las barras de desplazamiento y para 
BotonSalida, pero imponen sus propios valores de ventana gráfica cuando 
vuelven a ser dibujados. 


RBoton[3].PonEstado( VERDAD ); 


Como última tarea antes de comenzar con el auténtico trabajo, se activará 
el radiobotón para seleccionar el color inicial (LIGHTRED). 

El programa principal se introduce en un bucle a la espera de que Boton- 
Salida informe de un suceso de pulsación. Pero, mientras espera, ejecuta otro 
bucle do..while que se prolonga hasta suceda un suceso de liberación del 
botón izquierdo del ratón, 


do 

4 
Posicion = graton.BotonPulsado( BotonlI ); 
if( Posicion.contador_boton ) 
t 


El primer suceso examinado es el estado del botón izquierdo del ratón. Si 
está pulsado, se llamará a BotonSalida para comprobar si se ha producido una 
pulsación; ésta dará por terminado el bucle, 


Salir = BotonSalida.BotonPulsado(); 
if( Salir ) 

do 

t 


Si aún no ha llegado el momento de terminar, se consultará si las barras 
de desplazamiento han sufrido una pulsación ; dependiendo del tipo de pulsa- 
ción, la aplicación elegirá una determinada acción, 


MueveBoton = FALSO; 
switch( DespHoriz.PulsarBarraDesp() ) 
1 

case IZQUIERDA: 

case BARRAH: 

case DERECHA: MueveBoton = VERDAD; 
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switch( DespVert.PulsarBarraDesp() ) 


t 

case ARRIBA: 

case BARRAV: 

case ABAJO: MueveBoton = VERDAD; 
J 


Teniendo por motivo la demostración, la única acción tomada es cargar 
MueveBoton con VERDAD para que el siguiente paso pueda actualizar la 
ición de BotonSalida y el entorno de OjoDeGato. 


if( MueveBoton ) 


t 
BotonSalida.Mover( DespHoriz.TomaPosicion()-20, 
DespVert .TomaPosicion() ); 
OjoDeGato.Seleccionar ( 
(double) DespHoriz.TomaPorcentaje()/100*180 + 
(double) DespVert.TomaPorcentaje()/100*180 ); 
) 


Si alguna de las barras de desplazamiento ha informado de una pulsación 
de cualquier tipo entonces se procederá a la llamada de los procedimientos 
BotonSalida.Mover y OjoDeGato. Seleccionar con los dos procedimientos To- 
maPosicion de aquéllas como argumentos. En efecto, se ha estado diciendo a 
los distintos objetos que hablaran y trabajaran entre sí. Después de todo, 
mientras puedan hablar el mismo idioma, ¿por qué debería la aplicación to- 
marse la molestia de actuar de intérprete?. 

Si no ha tenido lugar ninguna pulsación sobre la barra de desplazamiento, 
la posibilidad que resta es que haya existido una pulsación sobre una de las 
ocurrencias del radiobotón, por lo que se utiliza otro bucle para sondear éstas. 


else for( i=RMin; i<=RMax; i++ ) 
if( RBoton[i].BotonPulsado() ) 
t 
for( j=RMin; j<=RMax; J++ ) 
RBoton[j].PonEstado( FALSO ); 


Si hubiera un informe de pulsación por parte de algún radiobotón entonces 
se utilizaría un bucle anidado para estar seguros de que todos ellos estuvieran 
inactivos, puesto que alguno de ellos pudiera estar activo ya cuando esto 
sucediera. 


Posteriormente, el radiobotón seleccionado se activará antes de indicar a 
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los procedimientos PonColor de BotonSalida y OjoDeGato que pidan a Bo- 
ton[i] un nuevo entorno de color. 


RBoton[i].PonEstado( VERDAD ); 

BotonSalida.PonColor ( 
RBoton[i].TomaColor() ); 

OjoDeGato.PonColor ( 
RBoton[i].TomaColor() ); 


El suceso de la pulsación de un botón inicia el bucle de comprobación. 
Este se prolongará hasta que tenga lugar un suceso de liberación de un botón 
para indicar que este último ya no va a ser pulsado. 


Posicion = graton.Rliberado( BotonI ); 
4 
while( !Posicion.contador_boton ); 
Te 
while( !Salir ); 


El programa termina con el cierre del modo gráfico y el retorno del ratón 
al modo texto (mediante un proceso de iniciación del objeto ratón de texto). 
En función del software que acompañe al ratón y del sistema en uso, puede 
que esto sea necesario o no lo sea, pero es una cortesía habitual hacerlo 
siempre. 


closegraph(); 
traton.Riniciar(); 


Resumen 


Los objetos gráficos de control creados en GCONTROL.I muestran las nece- 
sidades básicas de los objetos interactivos. Estos pueden utilizarse de esta 
forma en otras aplicaciones o como punto de partida para la creación de 
objetos de control propios. Las unidades RATON y GCONTROL se volverán 
a utilizar en el capítulo 18 para crear imágenes de iconos (también interactivos 
con el ratón), aunque de una manera diferente. 
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11 GCONTROL. 1 11 
11 Archivo para controlar los objetos gráficos 11 


//ttinclude <graphics.h> 
//ttinclude "raton.i" 
ttinclude <string.h> 
ttinclude <math.h> 


typedef enum í REDONDO, CUADRADO, TRES_D ) TipoBoton; 

typedef enum (í NO_PULSADO, DERECHA, ARRIBA, BARRAH, BARRAV, 
IZQUIERDA, ABAJO ) TipoPulsado; 

typedef int Borde[10]; 


class Punto 
t 
protected: 
int X, Y, Color; 
viewporttype VRef; 
public: 
Punto(); 
void Mover( int PtX, int PtY ); 
virtual void Dibujar(); 
void Crear( int PtX, int PtY, int C ); 
void RestaurarVentana(); 
void PonColor( int C ); 
virtual void PonPos( int PtX, int PtY ); 
virtual void Borrar(); 
int TomaColor(); 
int TomaX(); 
int TomaY(); 


class Boton : public Punto 
1 
protected: 
int Estado, Rotado, DimFuente, 
TipoLetra, DimX, DimY; 
TipoBoton EsteBoton; 
char TextoBoton[40]; 
public: 
Boton(); 
virtual void Dibujar(); 
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void PonerTodo( TipoBoton QueTipo, int PtX, int PtY, 
int Ancho, int Alto, int C, char* Texto ); 

void Crear( int PtX, int PtY, int Ancho, int Alto, 
int C, char* Texto ); 

virtual void Borrar(); 

void Invertir(); 

virtual void Mover( int PtX, int PtY ); 

void PonColor( int C ); 

void PonEstado( int BEstado ); 

void PonRotulo( char* Texto ); 

void PonTipoBoton( TipoBoton QueTipo ); 

void PonTipoDim( int DimTexto ); 

void PonTipoLletra( int FuenteTexto ); 

int TomaAncho(); 

int TomaAlto(); 

int TomaEstado(); 

int TomaDimTexto(); 

int BotonPulsado(); 

TipoBoton TomaTipo(); 

yy 


class RadioBoton : public Boton 
( 
protected: 
int Borde, Radio; 
public: 
RadioBoton(); 
RadioBoton( int PtX, int PtY, int C, 
int R, char* Texto ); 
-RadioBoton(); 
void Crear( int PtX, int PtY, int C, 
int R, char* Texto ); 
void Dibujar(); 
void Borrar(); 
void PonRadio( int R ); 
int TomaRadio(); 
int BotonPulsado(); 
Y; 


class Medidor : public RadioBoton 
t 
int Angulo; 
public: 
Medidor (); 
Medidor( int PtX, int PtY, int C, 
int R, char* Texto ); 
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“Medidor (); 

void Crear( int PtX, int PtY, int C, 
int R, char* Texto ); 

void Dibujar(); 

void Borrar(); 

void Seleccionar( int Grados ); 

void Cerrar( int Grados ); 

void Abrir( int Grados ); 


class BarraDesp : public Boton 
t 

private: 
int ColorLinea, SPos, Paso, DirDesp; 

public: 
BarraDesp (); // constructor // 
BarraDesp( int PtX, int PtY, /1/ 2% constructor // 

int Dimension, int Cl, 
int C2, int Orientacion ); 
-BarraDesp(); // destructor UNA 
void Iniciar( int PtX, int PtY, int Dimension, 
int C1, int C2, int Orientacion ); 

virtual void PonPos( int PtX, int PtY ); 
TipoPulsado PulsarBarraDesp(); 
int TomaPosicion(); 
int TomaDireccion(); 
int TomaPorcentaje(); 

private: 
virtual void Dibujar(); 
virtual void Borrar(); 
void PonBorde(); 
void PonFlechas(); 
void PonDeslizador(); 
void BorrarDeslizador(); 


4e desarrollo del objeto Punto 11 


Punto: :Punto() 
t 

getviewsettings( «VRef ); 
) 
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void Punto::PonPos( int PtX, int PtY ) 


»x 
" 


PtX + VRef.left; 
= PtY + VRef.top; 


a 
' 


void Punto: :Dibujar() 
t 

putpixel( x, y, Color ); 
) 


void Punto: :RestaurarVentana() 
t 
setviewport( VRef.left,VRef.top,VRef.right, 
VRef.bottom, VRef.clip ); 


void Punto::Crear( int PtX, int PtY, int C) 
t 

PonPos( PtX, PtY ); 

Color = C; 

Dibujar(); 


void Punto: :Borrar () 
t 
int Temp; 


Temp = Color; 

Color = getbkcolor(); 
Dibujar(); 

Color = Temp; 


void Punto::Mover( int PtX, int PtY ) 
( 

Borrar (); 

PonPos( PtX, PtY ); 

Dibujar(); 


BOTONES, BARRAS DE DESPLAZAMIENTO Y OBJETOS DE CONTROL 441 


void Punto: :PonColor( int C ) 
54 


Color = C; 

Dibujar(); 
J 
int Punto: :TomaColor() í return( Color ); ) 
int Punto::TomaX() €  return( x ); » 
int Punto::TomaY() [ return( y ); ) 


//aassasss========== 
Desarrollo del objeto Boton 


Boton: :Boton() 
t 
Rotado = FALSO; 
PonTipoDim( 2 ); 
PonTipoletra( TRIPLEX_FONT ); 
J 


Boton: :-Boton() 
1 
Borrar (); 


) 


void Boton: :PonerTodo( TipoBoton QueTipo, int PtX, int PtY, 
int Ancho, int Alto, int C, char* Texto ) 
pa 
PonTipoBoton( QueTipo ); 
Crear( PtX, PtY, Ancho, Alto, C, Texto ); 
J 


void Boton: :Dibujar() 

ño 
int i, radio = 6, Desp = 3, AlignX, AlignY; 
Borde RectArr; 
graton.Rmuestra( FALSO ); 
setviewport( x, Y, x+DimX, y+DimY, VERDAD ); 
settextjustify( CENTER_TEXT, CENTER_TEXT ); 
setcolor( Color ); : 
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switch( EsteBoton ) 
t 
case CUADRADO: 
f rectangle( 0, 0, DimX, DimY ); 
break; ) 
case TRES_D: // Borde 3 Dimensiones// 
f rectangle( 0, 0, DimX, DimY ); 
RectArr[0] = RectArr[2] = Rectarr[8] 
RectArr [1] RectArr[7] = RectArr[9] 
RectArr[4] = RectArr[6] = DimX-1; 
RectArr[3] = RectArr[5] = DimY-1; 
setfillstyle( CLOSE_DOT_FILL, Color ); 
setlinestyle( USERBIT_LINE, 0, NORM_ WIDTH ); 
fillpoly( 5, RectArr ); 
setlinestyle( SOLID_LINE, 0, NORM_WIDTH ); 
rectangle( 2*radio, 2*radio, Dimx-2*radio, 
DimY-2*radio ); 
line( 0, 0,2*radio, 2*radio ; 
line( 0, DimY, 2*radio, DimY-2*radio ); 


line( DimX, 0, DimX-2*radio, 2*radio d; 
line( DimX, DimY, DimX-2*radio, DimY-2*radio ); 
break; 


y 

case REDONDO: 

t // dibuja las esquina 
arc( DimX-radio, radio, 0, 90, radio 
arc( radio, radio, 90, 180, radio ); 
arc( radio, DimY-radio, 180, 270, radio ); 
arc( DimX-radio, DimY-radio, 270, 360, radio ); 

// dibuja los lados // 


1? 


line( radio, 0, DimX-radio, 0 di 
line( radio, DimY, DimX-radio, DimY ); 
line( 0, radio, 0, DimY-radio ); 
line( DimxX, radio, DimX, DimY-radio ); 
EN 
switch( EsteBoton ) // botón de rellenar // 


f case CUADRADO: 
case REDONDO: 


í RectArr[0] = RectArr[2] = RectArr[8] = 
RectArr[1] = RectArr[7] = RectArr[9] = Desp; 
RectArr[4] = RectArr[6] = DimX-Desp; 
RectArr[3] = RectArr[5] = DimY-Desp; break; A 
case TRES_D: 
( RectArr[0] = RectArr[2] = RectArr[8] = 


RectArr[1] = Rectarr[7] = RectArr[9] = 2*radio+1; 
RectArr[4] = RectArr[6] = DimX-2*radio-1; 
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RectArr[3] = RectArr[5] = DimY-2*radio-1; 
e 
if( Estado ) setfillstyle( SOLID _FILL, Color ); 
else setfillstyle( CLOSE_DOT_FILL, Color ); 
setlinestyle( USERBIT_LINE, 0, NORM_WIDTH ); 
fillpoly( 5, RectArr ); 
setlinestyle( SOLID_LINE, 0, NORM_WIDTH ); 


nte y la cadena conver emente // 


// ajusta la 
settextstyle( TipoLetra, Rotado, DimFuente ); 
AlignX = (DimX/2)-3; 

AlignY (DimY/2)-3; 


if( Estado ) setcolor( getbkcolor() ); 
outtextxy( AlignX, AlignY, TextoBoton ); 
if( Estado ) setcolor( Color ); 
graton.Rmuestra( VERDAD ); 
RestaurarVentana (); 


void Boton::Crear( int PtX, int PtY, int Ancho, 
int Alto, int C, char* Texto ) 
t 
getviewsettings( £VRef ); 
setviewport( 0, 0, getmaxx(), getmaxy(), VERDAD ); 
settextjustify( CENTER_TEXT, CENTER_TEXT ); 
PonPos( PtX, PtY ); 


if( Ancho < 20 ) DimX = 20; else DimX = Ancho; 
if( Alto < 20 ) DimY = 20; else DimY  = Alto; 
if( DimY > DimxX ) Rotado = VERDAD; else Rotado = FALSO; 
Color =C; 

Estado = FALSO; 

strcpy( TextoBoton, Texto ); 

Dibujar(); 


void Boton: :Borrar() 
t 
graton.Rmuestra( FALSO ); 
setviewport( X, y, X+DimX, y+DimY, VERDAD ); 
clearviewport (); 
RestaurarVentana(); 
graton.Rmuestra( VERDAD ); 
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void Boton::Mover( int PtX, int PtY ) 
1 

Borrar(); 

PonPos( PtX, PtY ); 

Dibujar(); 


void Boton::PonRotulo( char* Texto ) 
t 
strcpy( TextoBoton, Texto ); 
Dibujar(); 


void Boton::PonColor( int C ) 
1 

Color = C; 

Dibujar(); 


void Boton: :PonEstado( int BEstado ) 
t 
if( Estado != BEstado ) Invertir(); 


J 


void Boton: :PonTipoDim( int DimTexto ) 


( 
DimFuente = DimTexto; 
) 


void Boton::PonTipoLetra( int FuenteTexto ) 
t 

Tipoletra = FuenteTexto; 
Y 


void Boton: :PonTipoBoton( TipoBoton QueTipo ) 


É 
EsteBoton = QueTipo; 


) 
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void Boton: :Invertir() 
£ 


if( Estado ) Estado = FALSO; else Estado = VERDAD; 
Dibujar(); 


( return( DimX ); ) 

f return( DimY ); ) 
int Boton: :TomaEstado() f return( Estado ); ) 
int Boton: :TomaDimTexto() f return( DimFuente ); ) 


TipoBoton Boton: :TomaTipo() ( return( EsteBoton ); ) 


int Boton: :BotonPulsado () 
4 
Restado P-= graton.BotonPulsado( Botonl ); 
if( ( P.ejex >= x ) 8 ( P.ejex <= x+DimX ) 88 
( P.ejey >= y ) 88 ( P.ejey <= y+DimY ) ) 
1 
Invertir(); 
return( VERDAD ); 
) 
return( FALSO ); 


desarrollo del objeto RadioBoton 11 


ass=sss=ss=s===== 


RadioBoton::RadioBoton() ([ ) 


RadioBoton::RadioBoton( int PtX, int PtY, int C, 
int R, char* Texto ) 
1 
Crear( PtX, PtY, C, R, Texto ); 
J 


RadioBoton::-RadioBoton() [ Borrar(); ) 


void RadioBoton::Crear( int PtX, int PtY, int C, 
int R, char* Texto ) 
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getviewsettings( £VRef ); 

settextjustify( CENTER_TEXT, CENTER_TEXT ); 
PonPos( PtX, PtY ); 

Radio = R; 

Borde = C | 0x08; 

Color Cc; 

Estado = FALSO; 

strcpy( TextoBoton, Texto ); 

Dibujar(); 


J 


void RadioBoton::Dibujar() 
É 
int Xasp, Yasp, i, ColorAnt = getcolor(); 


RestaurarVentana (); 

getaspectratio( £Xasp, £Yasp ); 

setcolor( Borde ); 

graton.Rmuestra( FALSO ); 

if( Estado ) setfillstyle( SOLID_FILL, Color ); 


else setfillstyle( INTERLEAVE_FILL, Color ); 


fillellipse( x, y, Radio, Radio * (double) 
( Xasp / Yasp ) ); 
settextstyle( DEFAULT_FONT, HORIZ_DIR, 1 ); 
outtextxy( Xx, y + Radio + 10, TextoBoton ); 
graton.Rmuestra( VERDAD ); 
setcolor( ColorAnt ); 
) 


void RadioBoton::Borrar () 
1 
int ColorAnt = Color; 


Color = getbkcolor(); 

Borde = Color; 

Dibujar(); 

Color = ColorAnt; 

Borde = ColorAnt | 0x08; 
, 


void RadioBoton::PonRadio( int R ) ([ Radio = R; 
int RadioBoton::TomaRadio() ([ return( Radio ); 


int RadioBoton::BotonPulsado() 
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int DespX, DespY; 


Restado P = graton.BotonPulsado( BotonI ); 
DespX = abs( P.ejex - x ); 
DespY = abs( P.ejey - y ); 


if( ( DespX < 2 * Radio ) 85 ( DespY < 2 * Radio ) 
if( hypot( DespX, DespY ) < Radio ) 
1 
Invertir(); 


return( VERDAD ); 
$ 
return( FALSO ); 


/laaccancescrrccroccrrocreoceooceassse= 


desarrollo del objeto Medidor 


Medidor: :Medidor() 1 ) 


Medidor: :Medidor( int PtX, int PtY, int C, 
int R, char* Texto ) 
1 
Crear( PtX, PtY, C, R, Texto ); 
) 


Medidor: :-Medidor() ( Borrar(); ) 


void Medidor::Crear( int PtX, int PtY, int C, 
int R, char* Texto ) 
t 
getviewsettings( £VRef ); 
settextjustify( CENTER_TEXT, CENTER_TEXT ); 
PonPos( PtX, PtY ); 


Radio = R; 
Color = C; 
Angulo = 1; A 


strcpy( TextoBoton, Texto ); 
Dibujar(); 


) 
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void Medidor: :Dibujar() 
ps 
int Xasp, Yasp; 


RestaurarVentana(); 
getaspectratio( £Xasp, £$Yasp ); 
if( Angulo < 0 ) Angulo = 0; 


if( Angulo > 360 ) Angulo = 360; 
graton.Rmuestra( FALSO ); 
setcolor( Color ); 

setfillstyle( SOLID_FILL, Color ); 
sector( X, y, 0, Angulo, Radio, 

Radio * (double) ( Xasp / Yasp ) ); 
settextstyle( DEFAULT_FONT, HORIZ_DIR, 1 ); 
settextjustify( CENTER_TEXT, CENTER_TEXT ); 
outtextxy( X, y + Radio + 10, TextoBoton ); 
setcolor( WHITE ); 
setfillstyle( CLOSE_DOT_FILL, Color ); 
if( Angulo < 360 ) 

sector( x, y, Angulo, 360, Radio, 
Radio * (double) ( Xasp / Yasp ) ); 
graton.Rmuestra( VERDAD ); 
) 


void Medidor: :Borrar () 
( 
int Xasp, Yasp; 


getaspectratio( £Xasp, S£Yasp ); 
graton.Rmuestra( FALSO ); 

setcolor( getbkcolor() ); 

setfillstyle( SOLID_FILL, getbkcolor() ); 
sector( Xx, y, 0, 360, Radio, 

Radio * (double) ( Xasp / Yasp ) ); 
settextstyle( DEFAULT_FONT, HORIZ_DIR, 1 ); 
settextjustify( CENTER_TEXT, CENTER_TEXT ); 
outtextxy( x, y + Radio + 10, TextoBoton ); 
setcolor( WHITE ); 
graton.Rmuestra( VERDAD ); 

y 


void Medidor: :Seleccionar( int Grados ) 
í 

Angulo = Grados; 

Dibujar(); 
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void Medidor: :Cerrar( int Grados ) 


t 
Angulo += Grados; 
Dibujar(); 
) 
void Medidor::Abrir( int Grados ) 
ai 
Angulo -= Grados; 
Dibujar(); 
) 


11 Desarrollo del objeto BarraDesp A 


BarraDesp::BarraDesp() 

( 
x= y = Dimx = DimY = Color = 
ColorLinea = SPos = Paso = DirDesp = 


) 


BarraDesp::BarraDesp( int PtX, int PtY, int Dimension, 
int Cl, int C2, int Orientacion ) 

f 
Iniciar( PtX, PtY, Dimension, C1, C2, Orientacion ); 

) 


BarraDesp::-BarraDesp() ( Borrar(); ) 


void BarraDesp::Iniciar( int PtX, int PtY, int Dimension, 
int C1, int C2, int Orientacion ) 


getviewsettings( £VRef ); 
if( Dimension < 100 ) Dimension = 100; 
DirDesp = Orientacion; 
SPos = 21; 
Paso = Dimension / 100; 
switch( DirDesp ) 
dí 
case VERT_DIR: 
AS 
DimX = 20; 
DimY = Dimension; 
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while( PtX + DimX > VRef.right ) PtX--; 
break; 


case HORIZ_DIR: 
t 
DimX = Dimension; 
DimY = 20; 
while( PtY + DimY > VRe£.bottom ) PEY=-5 
AS 
PonPos( PtX, PtY ); 
ColorLinea = C1; 
Color = C2; 
Dibujar(); 
> 


void BarraDesp::PonPos( int PtX, int PtY ) 
t 
Punto: :PonPos( PtX, PtY ); 
while( (x + DimX ) > VRef.right ) DimX--; 
while( ( y + DimY ) > VRef.bottom ) DimY. 


% 


void BarraDesp::BorrarDeslizador() 
y 
switch( DirDesp ) 
1 
case VERT_DIR: 
setviewport( x+2, y+SPos, x+18, 
y+SPos+19, VERDAD ); break; 
case HORIZ_DIR: 
setviewport( x+SPos, y+2, x+SPos+19, 
y+18, VERDAD ); 
) 
clearviewport (); 
RestaurarVentana(); 


) 


void BarraDesp::PonDeslizador() 
t 
Borde RectArr; 
int ColorAnt = getcolor(); 


setviewport( x, y, X+DimX, y+DimY, VERDAD ); 
setcolor( ColorLinea ); 
setfillstyle( CLOSE_DOT_FILL, Color ); 
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) 


switch( DirDesp ) 


1 
case VERT_DIR: 
t 
RectArr[0] = RectArr[2] = RectArr[8] = 2; 


RectArr[1] RectArr[7] RectArr[9] = SPos; 
RectArr[4] = Rectarr[6] = 18; 

RectArr[3] = RectArr[5] = SPos+19; 

break; 


A] 

case HORIZ_DIR: 

le 
RectArr[0] = RectArr[2] = RectArr[8] = SPos; 
RectArr[1] = RectArr[7] = Rectarr[9] = 2; 
Rectarr[4] = RectaArr[6] SPos+19; 
RectArr[3] = Rectarr[5] 197 


Mo 

fillpoly( 5, RectArr ); 
setcolor( ColorAnt ); 
RestaurarVentana(); 


void BarraDesp::PonBorde () 


t 


Borde RectArr; 


setcolor( ColorLinea ); 

setviewport( Xx, Y, X+DimX, y+DimY, VERDAD ); 
RectArr[0] = RectArr[2] = RectArr[8] = 1; 
RectArr[1] RectaArr[7] = RectArr[9] = 1; 
RectArr[4] = Rectarr[6] = DimX-1; 

RectArr[3] = RectaArr[5] = DimY-1; 
setfillstyle( SOLID_FILL, Color ); 
setlinestyle( SOLID_LINE, 0, NORM_WIDTH ); 
fillpoly( 5, RectArr ); 

// borra la parte central de la barra // 
setfillstyle( SOLID_FILL, getbkcolor() ); 
switch( DirDesp ) 

É 


case VERT_DIR: 

1 
RectArr[1] = RectArr[7] 
RectArr[3] = RectArr[5] 
break; 


RectArr[9] = 21; 
DimY-21; 
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case HORIZ_DIR: 
t 
RectArr[0] = RectArr[2] = RectArr[8] = 21; 
RectArr[4] = RectArr[6] = DimX-21; 
TN 
fillpoly( 5, RectArr ); 


void BarraDesp::PonFlechas() 


t 


) 


setcolor( getbkcolor() ); 
setlinestyle( SOLID LINE, 0, THICK_WIDTH ); 
switch( DirDesp ) 


t 

case VERT_DIR: 

t 
line( 10,4, 45 12 )1 
line( 10, 4, 16, 12 ); 
line( 10, 4, 10, 16 ); 
line( 10, DimY-4, 4, DimY-12 ); 
line( 10, DimY-4, 16, DimY-12 ); 
line( 10, DimY-4, 10, DimY-16 ); 
break; 

) 

case HORIZ_DIR: 

t 
line( 4, 10, 12, 4); 
line( 4, 10, 12, 16 ); 
line( 4, 10, 16, 10 ); 
line( DimX-4, 10, DimX-12, 4 ); 
line( DimX-4, 10, DimX-12, 16 ); 
line( DimX-4, 10, DimX-16, 10 ); 

xy 


setlinestyle( SOLID LINE, 0, NORM_WIDTH ); 


void BarraDesp::Dibujar() 


q 


int ColorAnt = getcolor(); 

graton.Rmuestra( FALSO ); 

PonBorde (); // borde de la barra de desplazamiento 
PonFlechas(); // flechas de la barra de desplazamiento 
PonDeslizador(); // dibujar deslizador 
setcolor( ColorAnt ); // restaurar color original 
graton.Rmuestra( VERDAD ); 


de 
11 
1/ 
11 
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void BarraDesp::Borrar() 
t 
graton.Rmuestra( FALSO ); 
setviewport( Xx, Y, X+DimX, y+DimY, VERDAD ); 
clearviewport (); 
RestaurarVentana(); 
graton.Rmuestra( VERDAD ); 


TipoPulsado BarraDesp::PulsarBarraDesp() 
t 
TipoPulsado Result = NO_PULSADO; 
int NPos = 0; 


Restado P = graton.BotonPulsado( Botonl ); 
switch( DirDesp ) 
É 
case VERT_DIR: 
if( ( P.ejex >= x ) 68 ( P.ejex <= x+20 ) 68 
( P.ejey >= y )) 
if( P.ejey <= y+20 ) 
Result = ARRIBA; 
else 
if( P.ejey <= y+DimY-31 ) 
Result = BARRAV; 
else 
if( P.ejey <= y+DimY ) 
Result = ABAJO; 
break; 


case HORIZ_DIR: 
i£( ( P.ejey >= y ) 88 ( P.ejey <= y+20 ) £8£ 
( P.ejex >= x ) ) 
if( P.ejex <= x+20 ) 
Result = IZQUIERDA; 
else 
if( P.ejex <= x+DimX-31 ) 
Result = BARRAH; 
else 
if( P.ejex <= x+DimX ) 
Result = DERECHA; 
J 
if( Result == NO_PULSADO ) return( Result ); 


PROGRAMACIÓN DE GRÁFICOS EN TURBO C++ 


switch( Result ) 
( 
case IZQUIERDA: 


case ARRIBA: NPos = SPos-Paso; break; 
case DERECHA: 

case ABAJO: NPos = SPos+Paso; break; 
case BARRAH: NPos = P,ejex - ( x + 10 ); break; 
case BARRAV: NPos = P.ejey - ( y + 10 ); 


) 
if( NPos < 21 ) NPos = 21; 
switch( Result ) 
t 
case IZQUIERDA: 
case DERECHA: if( NPos > DimX-41 ) 
NPos = DimX-41; break; 
case ARRIBA: 
case ABAJO: if( NPos > DimY-41 ) NPos = DimY-41; 
J 
graton.Rmuestra( FALSO ); 
BorrarDeslizador (); 
SPos = NPos; 
PonDeslizador(); 
graton.Rmuestra( VERDAD ); 
return( Result ); 


int BarraDesp::TomaPosicion() [ return( SPos ); ) 
int BarraDesp::TomaDireccion() ( return( DirDesp ); ) 


int BarraDesp::TomaPorcentaje() 
( 
switch( DirDesp ) 
4 
case HORIZ_DIR: 
return(100* (double) (SPos-21) / (double) (DimX-41)); 
case VERT_DIR: 
return(100* (double) (SPos-21) / (double) (DimY-41)); 


final de los métodos ===// 
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11 GCONTROL.CPP UNA 
11 Prueba para el control de Gráficos 11 
ttinclude <conio.h> 
ttinclude <stdio.h> 
Hinclude <stdlib.h> 
ttinclude <stdarg.h> 
tinclude <string.h> 
tinclude <graphics.h> 
tinclude "raton.i" // objeto Raton // 
ttinclude "gcontrol.i" // objetos Boton y BarraDesp// 
char* const TipoColor[] = (í "Azul Claro", "Verde Claro", 
“Violeta C1", "Rojo Claro", 
"Magenta C1", "Amarillo", 
"Blanco" ); 
int const RMin = 0, RMax = 6; 
main() 
t 
Restado Posicion; 
int Salir = FALSO, MueveBoton, i, J, 
GControlador = DETECT, GModo, GError; 
viewporttype VRef; 
BarraDesp DespHoriz, DespVert; 
Medidor OjoDeGato; 
RadioBoton  RBoton[7]; 
Boton BotonSalida; 
initgraph( S£GControlador, £GModo, "C:ANTCANBGI" ); 


GError = 
if( GError ) 
t 


printf ( 
printf ( 
exit (1); 
) 
EN 


"Error en Gráficos: 


"Programa abortado...in" 


Igraton.Riniciar() 


graphresult (); 


%*sin", 
grapherrormsg( GError ) 
Y 


di 


) exit(1); 


cleardevice(); 
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1 


for( i=RMin; i<=RMax; i++ ) 
RBoton[i].Crear( 50, 360-(45*i), i+9, 10, 
TipoColor[i] ); 
OjoDeGato.Crear( 50, getmaxy()-50, LIGHTRED, 20, 
"Medidor" ); 
setviewport( 100, 0, getmaxx(), getmaxy(), VERDAD ); 
getviewsettings( £VRef ); 
DespHoriz.Iniciar( 0, getmaxy(), 
VRef .right-VRef.left-40, 
GREEN, LIGHTGREEN, HORIZ_DIR ); 
DespVert.Iniciar( getmaxx()-VRef.left-20, 0, getmaxy(), 
GREEN, LIGHTGREEN, VERT_DIR ); 
BotonSalida.PonTipoBoton( REDONDO ); 
BotonSalida.Crear( DespHoriz.TomaPosicion()-20, 
DespVert.TomaPosicion(), 
80, 20, LIGHTRED, "Salir 
RBoton[3] .PonEstado( VERDAD ); 
do 
t 


1 


Posicion = graton.BotonPulsado( BotonI ); 
if( Posicion.contador_boton ) 
t 
Salir = BotonSalida.BotonPulsado(); 
if( ISalir ) 
do 
t 
MueveBoton = FALSO; 
switch( DespHoriz.PulsarBarraDesp() ) 
1 
case IZQUIERDA: 
case BARRAH: 
case DERECHA: MueveBoton = VERDAD; 
, 
switch( DespVert.PulsarBarraDesp() ) 
í 
case ARRIBA: 
case BARRAV: 
case ABAJO: MueveBoton = VERDAD; 
J 
if( MueveBoton ) 
t 
BotonSalida.Mover ( 
DespHoriz.TomaPosicion()-20, 
DespVert.TomaPosicion() ); 


Para ejecutar esta orden hace falta una pantalla VGA de alta resolución (al menos 640x480). (N. del T.) 
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OjoDeGato.Seleccionar ( 
(double) DespHoriz.TomaPorcentaje()/100*180 + 
(double) DespVert.TomaPorcentaje()/100*180); 
) 
else for( i=RMin; i<=RMax; i++ ) 
if( RBoton[i].BotonPulsado() ) 


1 
for( j=RMin; j<=RMax; j++ ) 
RBoton[j].PonEstado( FALSO ); 
RBoton[i].PonEstado( VERDAD ); 
BotonSalida.PonColor (RBoton[i].TomaColor()); 
OjoDeGato.PonColor( RBoton[i].TomaColor() ); 
) 


Posicion = graton.Rliberado( BotonI ); 


di 
while( !Posicion.contador_boton ); 


od 

while( !Salir ); 

closegraph(); // poner modo de texto y ... // 
traton.Riniciar(); // reiniciar el ratón para / 


// operar en dicho modo / 


18 


Los objetos gráficos icono 


Con el incremento de la popularidad de las aplicaciones gráficas muchos 
programas (y programadores) han renunciado a los menús de texto y a los 
botones rotulados en favor de las aplicaciones basadas en los iconos, como 
las abanderadas por las computadoras Apple, por Microsoft Windows y por 
Presentation Manager. 

En muchos casos, como sucede con Apple Macintosh, donde los rótulos de 
texto aparecen casi como si fueran ocurrencias tardías, los iconos gráficos han 
sido llevados hasta sus extremos, cosa que muchos consideran más un obstá 
culo que una ayuda, En otros casos, tales como Presentation Manager, los 
iconos aparecen principalmente como elementos informativos más que como 
elementos interactivos primarios. 


Independientemente de los gustos o las antipatías, los iconos son elementos 
muy corrientes en la programación gráfica, pudiéndose utilizar en cualesquie- 
ra de las formas que dicten las preferencias y las aplicaciones. 

Si usted encuentra a los iconos molestos o de mal gusto, no se sienta en la 
obligación de utilizarlos. Si usted los encuentra molestos, entonces todos 
aquellos que utilicen sus aplicaciones probablemente encuentren molesta la 
forma en que usted los ha empleado. 


Tome o deje los iconos en función de sus deseos, pero recuerde que son 
elementos válidos en la programación gráfica y que aparecerán muy a menudo 
en el futuro. 
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Creación de las imágenes de los iconos 


Los iconos pueden servir como símbolos de pantalla y como botones para 
llamar o controlar aplicaciones o subprocedimientos. Puesto que los botones 
de control ya se han mostrado en otras ocasiones, este capítulo se comprome- 
terá primero con las imágenes de los iconos y luego con una demostración 
sencilla donde el ratón maniobrará con el icono por toda la pantalla. 

En cuanto a los gráficos comerciales, los símbolos utilizados se crearon de 
varias formas: mediante la definición de mapas de bits, mediante la escritura 
de imágenes, y así sucesivamente. Si desea crear iconos e imágenes de bits 
para aplicaciones más generales, entonces le hará falta un método más versátil 
y consistente: la utilidad IconEdit. 


La utilidad IconEdit 


La utilidad IconEdit presenta un editor de mapas de bits muy sencillo. Con él 
se pueden crear imágenes de iconos con cuadrículas de hasta 32 pixels de 
lado, en monocromo o en color. También permite almacenar y recuperar imá- 
genes desde el disco, así como invertir imágenes o cambiar de color a mono- 
cromo. 

La mayoría de los sistemas gráficos que hacen uso de los iconos los han 
utilizado en monocromo, incluso alguno de ellos, como es el caso de Macin- 
tosh, permiten la creación de iconos en color. Los iconos multicolor, sin 
embargo, no son demasiado comunes, aun cuando cada vez haya más panta- 
llas en color. En cuanto a nuestro editor de iconos, admite la creación de 
iconos multicolor o monocromados; en este último caso se permite seleccionar 
el color. Los iconos en monocromo tienen menos necesidades de memoria, 
tanto RAM como de disco. 

La limitación del tamaño (32x32) es arbitraria, pudiéndose incrementar. 
Ello nos llevaría a realizar ajustes de pantalla. Sin embargo, en la mayoría de 
los casos, la cuadrícula de 32x32 bits resulta ser más que suficiente, llegán- 
dose incluso a preferir cuadrículas más pequeñas. La disminución del tamaño 
de las imágenes puede llevarse a efecto modificando las dimensiones vertical 
y horizontal. Normalmente, cuando se crea un icono, se debe comenzar con 
el tamaño de imagen por omisión (grande), pudiéndose reducir el tamaño de 
la retícula una vez terminada aquélla. 

La utilidad IconEdit necesita de las utilidades Raton y GControl, creadas 
en capítulos anteriores. Si todavía no las tiene, debiera conseguirlas antes de 
intentar crear el programa IconEdit o antes de ejecutar el programa IconDe- 
mo. Todas ellas, junto a los otros programas y unidades creados en este libro, 
están incluidas en un disco que puede pedirse a las editoriales Addison-Wes- 
ley/Díaz de Santos (Consulte el cupón al final del libro). 
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La utilidad IconEdit no es demasiado compleja. Incorpora una retícula, 
distintas opciones y botones en color. El ratón va dibujando sobre la retícula 
con el color seleccionado, siempre y cuando su botón izquierdo esté pulsado; 
si el botón pulsado es el derecho, se seleccionará el color del fondo. Por lo 
demás, el programa es autoexplicativo. Consulte la Figura 18-1 para observar 
una figura creada con el editor de iconos. Á continuación se harán algunos 
comentarios sobre la forma en que los iconos se almacenan sobre archivos de 
disco. 


Figura 18-1 El editor de iconos 


Ever 


BLANco 


Los archivos de imágenes de iconos 


El procedimiento Guardalmagen permite almacenar un icono creado como 
imagen de bits en forma de archivo de disco. El procedimiento de almacena- 
miento comienza efectuando un par de exámenes para determinar si el icono 
va a almacenarse en formato monocromo o multicolor. 

Antes de examinar estas condiciones, se escriben dos octetos sobre el ar- 
chivo de salida, donde se contemplan las dimensiones vertical y horizontal de 
la imagen de aquél. Una vez hecho esto, el primer examen consiste en recu- 
perar el estado del botón. Si BtnMono está activo (VERDAD), entonces la 
imagen se almacena en monocromo. 


IndicadorColor = !BtnMono.TomaEstado(); 
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Si el primer examen no encuentra activo IndicadorColor, entonces se eje- 
cuta el segundo. Este estudia la matriz fmagen para ver si contiene más de un 
color. Si encuentra un color distinto del color de fondo, activará la variable 
CI; posteriormente, comparará todos los colores distintos del color de fondo 
con este valor. Si encuentra un segundo color, se asumirá el entorno multico- 
lor y se cargará el valor VERDAD en /ndicadorColor. 


if( IndicadorColor ) 
tí 
IndicadorColor = FALSO; 
for( i=0; i<=DimH; i++ ) 
for( j=0; j<=DimV; j++ ) 
if( Imagen[i](j] ) 
if( 1C1 ) C1 = Imagen[i] [3]; 
else 
if( Cl != Imagen[i] [3] ) 
IndicadorColor = VERDAD; 


Si la imagen del icono es en color, entonces el tercer octeto del archivo de 
salida contendrá el valor del indicador multicolor C2, esto es, FFh. 


if( IndicadorColor ) 


( 
write( llave, £C2, 1 ); 


En un icono multicolor, los pixels se agrupan por parejas para formar los 
octetos del archivo; cada octeto constará de dos valores de color, de cuatro 
bits cada uno (0-15 ó 00h..OFh). Esta es la codificación mínima de una ima- 
gen, por lo que un icono de 16 colores y 32x32 pixels tan sólo necesita 515 
octetos de almacenamiento, muy distinto del kiloocteto aproximado que haría 
falta sin codificación. 


for( i=0; i<=DimH; i++ ) 


1 
C2=k=0; 
for( j=0; j<=DimV; j++ ) 
t 
k++5 
C2 <<= 4; 
C2 += Imagen[i] [31]; 
if( k==2 ) 
t 


k = 07 
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write( llave, £C2, 1 ); 


FA 
if(k) 
1 

C2 <<= 4; 


write( llave, £C2, 1 ); 


Para un icono monocromo, el tercer octeto del archivo de salida coincide 
con el color de la paleta activa (00h..OFh). Recuerde, este color tan sólo es el 
color de trabajo seleccionado, no el color utilizado para crear la imagen del 
icono. Si se seleccionan distintos colores antes del almacenamiento de la 
imagen del icono en un archivo, el icono puede que se almacene con un color 
distinto de aquél en el que fue dibujado. Esto puede considerarse como una 
propiedad o una nadería, en función de entenderse como útil o indiferente. 


else 


t 
write( llave, £ColorActivo, 1 ); 


Para un icono monocromo, tras la escritura del octeto indicativo del color 
en uso, se produce la escritura de la propia imagen en forma de matriz de bits 
booleanos, con ocho bits verdaderos/falsos por cada octeto del archivo. 


for( i=0; i<=DimH; i++ ) 
for( j=0; j]<=3; j++ ) 
if( j*8 <= Dimv ) 


1 
Cc2 = 0; 
for( k=0; k<=7; k++ ) C2 <<= 1; 
if( j]*8+k <= DimV ) 
if( Imagen[i][j*8+k] ) C2++; 
write( llave, £C2, 1 ); 
J ) 


Observe que cada fila de pixels de la imagen del icono da origen a un 
nuevo octeto del archivo, incluso sin ser la dimensión vertical de la imagen 
un múltiplo de ocho bits. Esta no es la manera óptima de comprimir los datos 
pero simplifica los procesos de codificación y decodificación. De esta forma, 
un icono de 32x32 tan sólo necesita 67 octetos de almacenamiento, contra los 
515 octetos de un icono multicolor. 

Dependiendo de los parámetros del sistema, el tamaño mínimo de un ar- 
chivo que vaya a alojar los 67 octetos de la imagen del icono puede variar 
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entre 256 y 1024 octetos. Esto nos lleva a pensar que puede ser útil combinar 
distintos grupos de datos de iconos en un único archivo. Esto se deja como 
ejercicio propuesto. 


El objeto Icono 


El tipo de objeto icono viene definido en el programa de demostración ICO- 
NEDIT.CPP, aunque bien pudiera haber sido incluido en la unidad GCON- 
TROL o incluso redefinido como un descendiente del tipo de objeto Boton. A 
diferencia de los tipos de objetos anteriores, el tipo de objeto Icono no se 
genera como una unidad separada. Como tipo de objeto que es, incorpora 
procedimientos, aunque en una cantidad mínima, pudiendo ser elaborado a 
voluntad. 

La Figura 18-2 nos muestra el programa ICONTEST, que carga cuatro 
imágenes de iconos desde archivos de disco e incorpora un único botón de 
salida. Teniendo por motivo la demostración, Vd. tendrá que crear las imáge- 
nes de los iconos y modificar los nombres de los archivos para que coincidan. 

Por el momento, lo único que se puede hacer con los iconos mostrados 
desplazar sus imágenes alrededor de la pantalla con ayuda del ratón. También 
podría haberse incorporado la selección de iconos. Para ello debería haberse 
desarrollado la propiedad de la doble pulsación y haberse utilizado ésta para 
encadenar otras operaciones, 

El objeto icono es muy similar al objeto botón y, llegados a este punto, 
debería ser, en general, autoexplicativo. 


Figura 18-2 Iconos de demostración 
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AR ICONEDIT.CPP 11 
1/ Editor de Iconos q 


ttinclude <conio.h> 
ttinclude <fcntl.h> 
ttinclude <io.h> 
include <stdio.h> 
ftinclude <stdlib.h> 
tinclude <stdarg.h> 
tiinclude <string.h> 
tiinclude <graphics.h> 
Htinclude <1sysistat.h> 


ttinclude "raton.i" 
tiinclude "gprint.i" 
include "gcontrol.i" 


typedef int Borde[10]; 

Restado Posicion; // posición del ratón 
palettetype OrgPaleta; 

viewporttype VRef; 


int  ColorActivo = WHITE, DimH = 31, DimV = 31, i, j, 
ColorRejilla = BLUE, PixColor, GControlador, 
GModo, GError; 

unsigned int Imagen[32][32]; 

Boton BtnFin, BtnBorrar, BtnAlto, BtnAncho, 
BtnMono, BtnInv, BtnGuardar, BtnLeer; 

RadioBoton RBoton[16]; 


void RellenaCuadro( int x, int y, int EstiloRelleno, 
int Color ) 
1 
int OrgColor = getcolor(); 
Borde borde; 


setcolor( ColorRejilla ); 


borde[0] = borde[6] = borde[8] = x; 
borde[1] = borde[3] borde[9] = y; 
borde[2] = borde[4] x+10; 
borde[5] = borde[7] = y+10; 


setfillstyle( EstiloRelleno, Color ); 
fillpoly( 5, borde ); 
setcolor( OrgColor ); 
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void Pitido() 
í 


sound( 220 ); delay( 100 ); nosound(); 
delay( 50 ); 
sound( 440 ); delay( 100 ); nosound(); 


) 


void PintarRejilla() 
1 
char * Templ, Temp2; 


setcolor( WHITE ); 

graton,Rmuestra( FALSO ); 

setviewport( 246, 06, 286, 86, VERDAD ); 
clearviewport (); 

rectangle( 0, 0, DimH+8, DimV+8 ); 
settextjustify( CENTER_TEXT, CENTER_TEXT ) 
settextstyle( DEFAULT_FONT, HORIZ_DIR, 1 ) 
gprintxy( 20, 50, "*%2dx%24", DimH, DimV ); 


setviewport( 300, 0, getmaxx(), getmaxy(), VERDAD ); 
clearviewport (); 
setviewport( 0, 0, getmaxx(), getmaxy(), VERDAD ); 


for( i=0; i<=DimH; i++ ) 
for( j=0; j<=DimV; j++ ) 
1 
RellenaCuadro( i*10+300, j*10, 
INTERLEAVE_FILL, Imagen[il([3] ); 
putpixel( 250 + i, 10 + Jj], Imagen[i][j] ); 
J 
graton.Rmuestra( VERDAD ); 
) 


void ColorNota() 
1 


char* const NombresColor[] = 


[ "Negro", "Azul", "Verde", "Violeta", "Rojo", 
"Magenta", "Marrón", "Gris claro", "Gris osc.", 
"Celeste", "Verde cla", "Violeta cl", "Rojo claro", 


"Magenta cl", "Amarillo", "BLANCO" ); 


setviewport( 0, 310, 80, 330, VERDAD ); 
setcolor( ColorActivo ); 

settextstyle( DEFAULT_FONT, HORIZ_DIR, 1 ); 
settextjustify( CENTER_TEXT, CENTER_TEXT ); 
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J 


clearviewport (); 
outtextxy( 40, 10, NombresColor[ColorActivo] ); 
setviewport( 0, 0, getmaxx(), getmaxy(), VERDAD ); 


void Borralmagen() 


) 


for( i=0; i<=DimH; i++ ) 
for( j=0; j<=DimV; j++ ) 
Imagen[i][j] = 0; 
PintarRejilla(); 
BtnBorrar.PonEstado( FALSO ); 
if( BtnInv.TomaEstado() ) BtnInv.PonEstado( FALSO ); 


void InvierteImagen() 


1 


) 


AS 


for( i=0; i<=DimH; i++ ) 

for( j=0; j<=DimV; j++ ) 
Imagen[i][3j] *= 0x0F; // XOR con 0Fh // 
PintarRejilla(); 


void Monocromo () 


( 


tant dnde 


if( BtnInv.TomaEstado() ) 
E 
for( i=0; i<=DimH; i++ ) 
for( j=0; j<=DimV; j++ ) 
Imagen[i]([j] £= 0x0F; 
PintarRejilla(); 


if( BtnMono.TomaEstado() ) 


getpalette( £OrgPaleta ); 
for( is1; i<=15; i++ ) 
setpalette( i, OrgPaleta.colors[ ColorActivo ] ); 
) else setallpalette( £OrgPaleta ); 
delay( 100 ); 
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int LeeDim() 

1 
char Tecla, CadTemp[4] = ""; 
int Terminar = FALSO; 


settextjustify( LEFT_TEXT, TOP_TEXT ); 
settextstyle( DEFAULT_FONT, HORIZ_DIR, 1 ); 
setviewport( 120, 330, getmaxx(), 340, VERDAD ); 
while( !Terminar ) 
( 
clearviewport (); 
gprintxy( 1, 1, "Tamaño (10..32): %s", CadTemp ); 
Tecla = getch(); 


if( Tecla == 0x0D ) Terminar = VERDAD; 
else 
i£( ( Tecla >= '0 ) ££ ( Tecla <= '9' ) ) 


strncat( CadTemp, Tecla, 1 ); 
) 
clearviewport (); 
setviewport( 0, 0, getmaxx(), getmaxy(), VERDAD ); 
return( atoi( CadTemp ) ); 
) 


void PonAnchura() 
1 
int Resultado = LeeDim(); 


if( ( Resultado < 10 ) || ( Resultado > 32 ) ) 
Pitido(); 
else 
1 
DimH = Resultado-1; 
PintarRejilla(); 
J 
BtnAncho.PonEstado( FALSO ); 
J 


void PonAltura() 
1 
int Resultado = LeeDim(); 


if( ( Resultado < 10 ) || ( Resultado > 32 ) ) 
Pitido(); 
else 
t 
DimV = Resultado-1; 
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PintarRejilla(); 


y 
Btnalto.PonEstado( FALSO ); 


char *LeeNombre( char *Nota ) 
t 
char Tecla, CadTemp[20] = ""; 
int Terminar = FALSO; 
setcolor( WHITE ); 
settextjustify( LEFT_TEXT, TOP_TEXT ); 
settextstyle( DEFAULT_FONT, HORIZ_DIR, 1 ); 
setviewport( 120, 330, getmaxx(), 340, VERDAD ); 
while( Terminar ) 
t 
clearviewport (); 
gprintxy( 1, 1, "%s%s", Nota, CadTemp ); 
Tecla = getch(); 


if( Tecla == 0x0D ) Terminar = VERDAD; 
else 
if((( Tecla >= '0” ) ££ ( Tecla <= '9' )) 


(( Tecla "a" ) £8 ( Tecla <= 'z” )) 


> IM 
(( Tecla >= 'A' ) £K ( Tecla <= '2” )) || 
> pl 

( Tecla = ) ) strncat( CadTemp, Tecla, 1 ); 


) 

clearviewport (); 

setviewport( 0, 0, getmaxx(), getmaxy(), VERDAD ); 
return( CadTemp ); 


void PresentaError( char *MensajeError ) 
y 
settextJustify( LEFT_TEXT, TOP_TEXT ); 
settextstyle( DEFAULT_FONT, HORIZ_DIR, 1 ); 
setviewport( 120, 330, getmaxx(), 350, VERDAD ); 
clearviewport (); 
setcolor( LIGHTRED ); 
outtextxy( 1, 1, MensajeError ); 
setcolor( WHITE ); 
getch(); 
clearviewport (); 
setviewport( 0, 0, getmaxx(), getmaxy(), VERDAD ); 
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void GuardaImagen() 

$ 
unsigned int C1= 0, C2 = OxFF; 
int i, j, k, llave, IndicadorColor = FALSO; 
char NombreFich[14]; 


strcpy( NombreFich, LeeNombre( "Escribe Imagen: " ) ); 
if( NombreFich == "" ) 
1 
Pitido(); 
BtnGuardar.PonEstado( FALSO ); 
return; 
) 
outtextxy( 120, 330, NombreFich ); 
if( ( llave = open( NombreFich, 
O_CREAT | O_TRUNC | O_BINARY, 
S_IREAD | S_IWRITE ) ) == - 1) 
( 
PresentaError ( 
"No puedo abrir el archivo de salida" ); 
return; 
) 


write( llave, £DimH, 1 ); 

write( llave, £DimV, 1 ); 
IndicadorColor = !BtnMono.TomaEstado(); 
if( IndicadorColor ) 


( 
IndicadorColor = FALSO; 
for( i=0; i<=DimH; i++ ) 
for( j=0; j<=DimV; j++ ) 
if( Imagen[i](3] ) 
if( 1C1 ) Cl = Imagen[i] [31]; 
else 
if(C1 != Imagen[i][j] ) 
IndicadorColor = VERDAD; 
J 
if( IndicadorColor ) 
t // Imagen multicolor // 


write( llave, £C2, 1 ); 
for( i=0; i<=DimH; i++ ) 
1 
C2=k 
for( j=0 
4 


j<=DimV; J++ ) 


kee; 


LOS OBJETOS GRÁFICOS ICONO 471 


C2 <<= 4; 
C2 += Imagen[i][j]; 
if( k==2 ) 
t 
k=0; 
write( llave, £C2, 1 ); 
MS 
12( 0) 
t 
02 <<= 4; 
write( llave, £C2, 1 ); 
A 
else 
£ // Imagen monocromo // 


write( llave, £ColorActivo, 1 ); // color paleta He 
for( i=0; i<=DimH; i++ ) 
for( 3=0; j<=3; J++ ) 
1£( 3*8 <= Dimv ) 
t 
C2 = 0; 
for( k=0; k<=7; k++ ) C2 <<= 1; 
if( j*8+k <= DimV ) 
if( Imagen[i1] [3*8+k] ) C2++; 
write( llave, £C2, 1 ); 
) ) 
close( llave ); 
BtnGuardar.PonEstado( FALSO ); 


void Leelmagen() 

t 
unsigned int C1l=0,C2= 0; 
int i, J], k, llave; 
char *NombreFich; 


strcpy( NombreFich, LeeNombre( "Lee Imagen: " ) ); 
if( NombreFich == "" ) 
1 

Pitido(); 

BtnLeer.PonEstado( FALSO ); 

return; 
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outtextxy( 120, 330, NombreFich ); 
if( ( llave = open( NombreFich, 
O_RDONLY | O_BINARY ) ) == -1 ) 
1 
PresentaError ( 
"No puedo abrir el archivo de entrada" ); 
return; 
) 
read( llave, £DimH, 1 ); 
read( llave, £Dimv, 1 ); 
read( llave, £C1, 1 ); 
if( C1 == OXxXFF ) 
( // Imagen multicolor // 


for( i=0; i<=DimB; i++ ) 
for( j=0; j<DimV/2; j++ ) 
t 


read( llave, £C2, 1 ); 

Imagen[i][3*2] = C2 >> 4; 

if( DimV >= j*2+1 ) 
Imagen[1][3*2+1] = C2 € 0x0F; 


O: 
else // Imagen monocromo // 
t 
for( i=0; i<=DimH; i++ ) 
for( j=07 j<=3; J++ ) 
if£( 3*8 <= DimV ) 
1 
read( llave, £C2, 1 ); 
for( k=0; k<=7; k++ ) 
1 
if( j*8+k <= DimV ) 
if( C2 £ 0x80 ) Imagen[i][j*8+k] = C1; 
else Imagen[i][3*8+k] = 0; 
C2 <<= 1; 
) Sy 


close( llave ); 
PintarRejilla(); 
BtnLeer.PonEstado( FALSO ); 


main() 
t 
Restado Rsuceso; 
int Salir = FALSO; 
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GControlador = DETECT; 


initgraph( £GControlador, £GModo, "C:ATCAMBGI" ); 


GError = graphresult(); 
if( GError != grok ) 


iS 
printf( "Error en Gráficos : %sin", 
grapherrormsg( GError ) ); 
printf( "Programa abortado..." ); 
exit(1); 
y 
if( !graton.Riniciar() ) exit(1); 


cleardevice(); 


1/3 sss=s===s======// 
// poner los objetos gráficos de control // 
1/3 sse=ss=s============// 
for( 1=0; i<=7; i++ ) 
RBoton[i].Crear( 18, 50+35*i, dy 0 Y 
for( i=8; i<=15; i++ ) 
RBoton[i].Crear( 60, 50+35*(i-8), i, 10, "" ); 
BtnFin.PonerTodo (REDONDO, 1, 1, 80, 20, 
LIGHTRED, "Salir"  ); 
BtnBorrar.PonerTodo (REDONDO, 120, 1, 80, 20, 
LIGHTRED, "Borrar" ); 
BtnInv.PonerTodo (REDONDO, 120, 50, 80, 20, 
LIGHTGREEN, "Invert" ); 
BtnMono.PonerTodo (CUADRADO, 120, 80, 80, 20, 
LIGHTGREEN, "Mono" d; 
BtnAlto.PonerTodo (CUADRADO, 120, 130, 80, 20, 
YELLOW, "Aalto" Y 
BtnAncho.PonerTodo (CUADRADO, 120, 160, 80, 20, 
YELLOW, "Ancho" lo 


BtnGuardar.PonerTodo (CUADRADO, 120, 210, 80, 20, 
LIGHTCYAN, "Grabar"); 

BtnLeer.PonerTodo (CUADRADO, 120, 240, 80, 20, 
LIGHTCYAN, "Leer" ); 


ColorNota(); 
RBoton[ColorActivo].PonEstado( VERDAD ); 
for( i=0; i<=DimH; i++ ) 
for( j=0; j<=DimV; j++ ) 
Imagen[i][3] = 0; 
PintarRejilla(); 
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while( !Salir ) 


t 


Rsuceso = graton.Rpos(); 
Salir = BtnFin.BotonPulsado(); 
if( Rsuceso.estado_boton £ 0x07 ) 
do 
( 

if( Rsuceso.ejex < 120 ) 


t 
for( 1=0; i<=15; i++ ) 
if( RBoton[i].BotonPulsado() ) 
t 
graton.Rmuestra( FALSO ); 
for( 3J=03 J<=15; J++ ) 
RBoton[j].PonEstado( FALSO ); 
RBoton[i].PonEstado( VERDAD ); 
Coloractivo = 1; 
ColorNota(); 
graton.Rmuestra( VERDAD ); 
) E 
else 


if( Rsuceso.ejex < 250 ) 
t 


if( BtnBorrar.BotonPulsado() ) BorraImagen(); 

if( BtnInv.BotonPulsado() ) InvierteImagen(); 
Monocromo (); 
PonAltura(); 
PonAnchura (); 
if( BtnGuardar.BotonPulsado() ) GuardaImagen(); 
LeeImagen(); 


if( BtnMono.BotonPulsado() ) 
if( BtnAlto.BotonPulsado() ) 
if( BtnAncho.BotonPulsado() ) 


if( BtnLeer.BotonPulsado() ) 
else 


PixColor = ColorActivo; 

if( Rsuceso.estado_boton £ 0x02 ) 
PixColor = BLACK; 

i = ( Rsuceso.ejex - 300 ) / 10; 

j = Rsuceso.ejey / 10; 

if( (i>=0)66 (d<= Dim ) 8£ 
(j>=0) 88 ( j <= Dimv ) ) 
if( Imagen[il[j] != PixColor ) 
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1 
graton.Rmuestra( FALSO ); 
Imagen[i][j] = PixColor; 
RellenaCuadro( i*10+300, j*10, 
INTERLEAVE_FILL, PixColor ); 
putpixel( 250+i, 10+j, PixColor ); 
graton.Rmuestra( VERDAD ); 
J ) 
Rsuceso = graton.Rpos(); // toma el estado del 
botón del ratón 
) 
while( Rsuceso.estado boton ); // continúa si hay 
algún botón abajo // 
J 
closegraph(); // vuelve al modo de texto y ... AY 


traton.Riniciar(); // repone el ón para dicho modo // 


/fasasassossesesossoses========== 
e ICONTEST.CPP 

// Programa de Demostración del Objeto Icono // 
====// 


ttinclude <conio.h> 
itinclude <fcntl.h> 
ttinclude <io.h> 
ttinclude <stdio.h> 
ttinclude <stdlib.h> 
tinclude <string.h> 
tinclude <graphics.h> 
tinclude <1sysistat.h> 


ttinclude "raton.i" 
tinclude "gprint.i" 
Htinclude "gcontrol.i" 


class Icono 


void *Ptrimg; 
int X, Y, XDesp, YDesp, DimH, DimV, Estado; 


public: 
Icono(); 
-Icono(); 


void Crear( char* NombreFich ); 
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void Mostrar( int Status ); 

woid MoverA( int XPos, int YPos ); 

void Arrastrar(); 

void SelecRaton( int £XRaton, int £YRaton ); 
y 


Icono: :Icono() 
ná 

DimH = DimV = XDesp = YDesp = X = Y = 0; 
0) 


Icono: :-Icono() 

1 
if( Estado ) Mostrar( FALSO ); 
free( Ptrimg ); 

J 


void Icono::Crear( char* NombreFich ) 
( 
unsigned int C1=0, C2= 05 
int 1, j, k, llave, 


if( ( llave = opení( 
NombreFich, O_RDONLY | O_BINARY ) ) == -1 ) 
1 
gprintxy( 200, 200, 
"No se puede abrir %s como archivo de entrada ", 
NombreFich ); 
getch(); 
return; 
3 
read( llave, £DimH, 1 ); 
read( llave, £DimV, 1 ); 
read( llave, £C1, 1 ); 
1£( cl OXFF ) 


1 // Imagen multicolor // 


for( i=0; i<=DimH; i++ ) 
for( j=0; j<=DimV/2; j+* ) 
Ñ 
read( llave, £C2, 1 ); 
putpixel( i, j*2, C2 >> 4 ); 
1f£( DimV >= j*2+1 ) 
putpixel( i, j*2+1, C2 £ OXx0F ); 


else 
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t // Imagen monocroma// 
for( i=0; i<=DimH; i++ ) 

J<=3; j++ ) 

if( j*8 <= DimV ) 

t 


read( llave, £C2, 1 ); 
for( k=0; k<=7; k++ ) 
1 
if( j*8+k <= DimV ) 
if( C2 £ 0x80 ) putpixel( i, j*8+k, C1 ); 
else putpixel( i, j*8+k, 0 ); 
C2 <<= 1; 
) Hidd 
close( llave ); 
PtrImg = malloc( (unsigned) 
imagesize( 0, 0, DimH, DimV ) ); 
getimage( 0, 0, DimH, DimV, Ptrimg ); 
putimage( 0, 0, Ptrimg, XOR_PUT ); 
Estado = FALSO; 
) 


void Icono::Mostrar( int Status ) 
1 
if( Status != Estado ) 
1 
graton.Rmuestra( FALSO ); 
putimage( X, Y, PtrIimg, XOR_PUT ); 
Estado = lEstado; 
graton.Rmuestra( VERDAD ); 


void Icono::MoverA( int XPos, int YPos ) 
1 
if( Estado ) putimage( X, Y, Ptrimg, XOR_PUT ); 
X = XPos; 
Y = YPos; 
putimage( X, Y, PtrImg, XOR_PUT ); 
Estado = VERDAD; 


void Icono::SelecRaton( int £XRaton, int SYRaton ) 
1 
if( ( XRaton >= X ) £8 ( XRaton <= X+DimH ) ££ 
( YRaton >= Y ) ££ ( YRaton <= Y+DimV ) ) 
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J 


1 
XDesp = XRaton - X; // posición relativa del icono // 
YDesp = YRaton - Y; // respecto al punto rojo del // 
1/7 ratón ME 
XRaton = YRaton = -1; 1/ la posición del ratón // 
FSE y aliza UNA 
Arrastrar(); // así la prueba siguiente fallará // 
+ // si los iconos se superponen 1 


void Icono::Arrastrar() 


t 


Restado Revento; 
int XPos, YPos, AntX = -1, AntY = -1, 
Terminar = FALSO; 


Revento = graton.Rliberado( BotonI ); // borra sucesos 
anteriores // 

Mostrar( FALSO ); // esconde el objeto // 

graton.Pon_Cursor( GUANTE ); 

do 

( 


Revento = graton.Rpos (); 

XPos = Revento.ejex; 

YPos = Revento.ejey; 

if( ( XPos l= AntX ) || ( YPos != AntY ) ) 

t 
graton.Rmuestra( FALSO ); 
putimage( XPos-XDesp, YPos-YDesp, PtrImg, XOR_PUT ); 
putimage( AntX-XDesp, AntY-YDesp, PtrImg, XOR_PUT ); 
graton.Rmuestra( VERDAD ); 
AntX = XPos; 
AntY = YPos; 

) 

Revento = graton.Rliberado( BotonI ); 

Terminar = Revento.contador_boton; // prueba para 

liberar suceso // 


) 

while( !Terminar ); 

X = XPos-XDesp; // actualiza las coord. del objeto // 
Y = YPos-YDesp; // a la posición final // 
graton.Pon_Cursor( FLECHA ); // restaura el cursor 


del ratón // 


fin de la definición del objeto Icono = 
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void main() 


t 


int i, GControlador = DETECT, GModo, GError; 
Restado Revento; 

Boton BotonFin; 

Icono ImagenPix[4]; 


initgraph( £GControlador, £GModo, "C:IXTCANBGI" ); 
GError = graphresult(); 
if( GError != grok ) 


t 
printf( "Error gráfico: %sin", 
grapherrormsg( GError ) ); 
printf( "Programa abortado..." ); 
exit (1); 
, 


if( !graton.Riniciar() ) exit(1); 
cleardevice(); 
ImagenPix[0].Crear( "FILEFLDR.ICO" ); 
ImagenPix[1].Crear( "OM.ICO" ); 
ImagenPix[2].Crear( "QUESTION.ICO" ); 
ImagenPix[3].Crear( "RAINBOW3.ICO" ); 
for( 1=0; i<=3; i++ ) 

ImagenPix[i].MoverA( 40 * i + 60, 200 ); 
BotonFin.PonerTodo( REDONDO, getmaxx()-80, 1, 80, 

LIGHTRED, "Salir" ); 

graton.Rmuestra( VERDAD ); 


/(amaaas=es=e=== 11 
4 inicio del programa de demostración // 
//== 


aceanseasesese====// 


while( !BotonFin.BotonPulsado() ) 


se 

Revento = graton.BotonPulsado( Botonl ); 

if( Revento.contador_boton ) 

for( i=0; i<=33 i++ ) 

ImagenPix[i].SelecRaton( Revento.ejex, Revento.ejey ); 
) 11 
closegraph(); // e ura el modo de texto e 
traton.Riniciar(); // inicializa el ratón para di 


// modo 


Es 


20, 


cho 


Cuarta parte 


Fractales y otros 
fenómenos extraños 


La mayor parte de las aplicaciones y demostraciones vistas han tenido una 
naturaleza más o menos práctica (con la posible excepción del capítulo de 
animación). Pero los gráficos no se limitan a las aplicaciones clásicas. Las 
matemáticas abarcan campos extraños y fascinantes que se exploran mucho 
mejor con ayuda de un computador. 

Estas exploraciones podrían haberse realizado sin ningún tipo de ayuda. 
Estamos en el caso del intento de localización del nacimiento del Amazonas 
caminando aguas arriba (esto podría hacerse, pero ¿cómo?). 

En esta sección se ofrecen las instrucciones y los planos de los vehículos 
de exploración más fiables para conducirle al campo de los fractales, de los 
extraños confinadores y de otros misterios del mundo matemático. Este es un 
mundo en el que los viajes tienen por único límite la imaginación. 


19 


En los umbrales de 
los mares de fractales 


Los umbrales de los mares de fractales abarcan una tierra extraña y maravi- 
llosa aún no cartografiada por exploradores con canoa y guía nativo, pero 
sondeada y proyectada por los matemáticos, navegada por medio del trabajo 
repetitivo del chip de un computador, y dibujada en bits de luz y sombra sobre 
las pantallas de los computadores, 

Estas extrañas tierras no son imaginadas ni de fantasía, Son verdaderamen- 
te reales. Tan reales, de hecho, que el universo fractal parece conformar las 
bases y las raíces más lejanas de nuestro universo familiar. Siendo menos 
poéticos y más precisos, diremos que las ecuaciones en las que encontramos 
estos extraños mundos son las mismas que gobiernan los elementos más co- 
munes de nuestro universo, desde las estructuras cristalinas de los minerales 
(y también de los copos de nieve y de las proteínas) hasta la delicada evolu- 
ción de un helecho y el complejo laberinto de nuestra estructura circulatoria. 

En este capítulo, debido a las limitaciones de espacio y materia, tan sólo 
se ofrece el camino de acceso a unos pocos de estos fascinantes campos. Se 
evitará una explicación detallada de la matemática subyacente bajo estas ex- 
cursiones y de su relevancia en el gran universo físico. Se indicarán libros de 
consulta e información adicional para el explorador interesado. 

Muchos de estos campos siguen siendo materia desconocida, por lo que no 
se le ofrece ninguna seguridad sobre el grado de profundización al que Vd. 
pueda llegar en este laberinto de fascinación, ni la garantía de un retorno sano 
y salvo a nuestro mundano cosmos. ¡Hic Draconi l 


Aquí hay dragones. 
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El universo fractal 


El ahora ubicuo término fractal fue inventado por Benoit B. Mandelbrot para 
significar el hecho de que, en realidad, la dimensión de una superficie (en 
nuestro universo mundano) o de una ecuación (en el universo matemático) 
dependía de la manera de medirla. Por utilizar un ejemplo físico, si se midiera 
la costa del estado de Maine sirviéndose de una vara de 10 millas, se llegaría 
a un determinado resultado numérico, 

Pero, si se repitiese el ejemplo una segunda vez (utilizando en esta ocasión 
la milla como unidad de longitud) se obtendría un segundo resultado, mayor 
que el primero desde el punto de vista fraccionario, Una tercera repetición 
bajo la unidad de longitud 1/10 milla proporcionaría un tercer resultado, to- 
davía mayor; un cuarto intento (reduciendo ahora la unidad de medida a una 
yarda) proporcionaría una cifra aún mayor que las anteriores. 

De esta manera, a medida que se decrementa el tamaño de la unidad de 
longitud, el resultado va generando irregularidades cada vez mayores. De 
forma predecible, LI será menor L2,L2 menor que L3 ... L,.¡ menor que L,. 

Sin embargo, independientemente de lo pequeño que pueda llegar a ser el 
incremento de la longitud (incluso llegando al punto de tener que rastrear las 
irregularidades de cada granito de arena) estamos en disposición de decir que 
L, es menor que dos veces L¡. La longitud no ha sufrido un incremento 
ilimitado. 

Esta afirmación es fácilmente demostrable y debe admitirse como válida. 
Sin embargo, recuerde esta cifra 2 porque será utilizada más adelante en el 
examen de las exploraciones fractales. 


El conjunto de Mandelbrot 


El conjunto de Mandelbrot es, con probabilidad, el paisaje fractal más famoso 
de los explorados en la actualidad y ha sido publicado (normalmente en color) 
en revistas académicas, en Scientific American y Time así como en innumera- 
bles publicaciones menos prestigiosas. Benoit Mandelbrot no fue el primero 
en descubrir este fascinante mundo (sus umbrales ya habían sido vislumbra- 
dos por los matemáticos Robert Brooks y J. Peter Matelski) pero sí fue el 
primero en hacer una exploración detallada, por lo que queda inseparablemen- 
te unido a los mapas de este campo. 

El conjunto de Mandelbrot es una ecuación que se resuelve en el campo 
de los números comprendidos entre las longitudes -2.0 y + 0.5 y las latitudes 
-1,25 y +1.25. Está dominado por un gran mar fractal con bahías y entrantes, 
como se observa en la Figura 19-1, 
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Como sucede con muchas otras tierras, las regiones más interesantes son 
las que circundan el mar. Estas presentan un terreno irregular y, con toda 
certeza, se ajustan a mi anterior descripción sobre las dificultades de medir 
con precisión la costa de Maine. 


En este caso no se intentará medir la costa. En su lugar, la "costa" es un 
artilugio matemático, aunque muy real, creado mediante el examen recursivo 
de una ecuación tan sencilla como: Z,,y¡=Z9+C, donde C es el valor de cada 
punto (la latitud y la longitud del punto) y Z1 es cero para cada punto (como 
valor inicial). 

En este paisaje, sin embargo, mientras la longitud se mide en números 
reales, la latitud se sitúa sobre un eje imaginario, por lo que todos los valores 
de latitud se marcan con la letra ¿ que, en términos matemáticos, significa la 
raíz cuadrada de menos 1 (un número imaginario). 

Para los matemáticos, los números imaginarios son números que tienen, en 
sentido clásico, la extraña propiedad de que, cuando se los eleva al cuadrado 
proporcionan resultados negativos. Si esto no le gusta y le hace pensar que va 
en contra de lo racional y lo real, se le recomienda de forma muy sincera que 
deje de leer en este momento. 

En términos clásicos, si un número positivo se eleva al cuadrado (se mul- 
tiplica por sí mismo), el resultado es un número positivo. De manera similar, 
si se eleva al cuadrado un número negativo, el resultado será también un 
número positivo. Por consiguiente, tanto 2? como 2 pa por resultado 4. En 
los números imaginarios, sin embargo, tanto 21? como -21? dan el resultado -4, 
mientras que la raíz cuadrada de -4 es un número imaginario de valor +/- 21. 

La utilización de los números imaginarios en el eje de la latitud no es 
menos real que el propio conjunto de Mandelbrot, Recuerde, cada vez que se 
eleve al cuadrado el valor de la latitud obtendremos un resultado negativo 
(independientemente del signo del valor original) que jamás volverá a ser 
imaginario. Al mismo tiempo, todo número imaginario multiplicado por un 
número real siempre producirá un resultado imaginario, 

En este punto, con este pequeño baño de teoría matemática, ya podemos 
volver a la fórmula utilizada para explorar el conjunto de Mandelbrot. Calcu- 
lemos un primer valor, comenzando en una posición arbitraria dentro del 
conjunto, digamos las coordenadas -0.6 y 0.4i de un punto, por ejemplo: 


DD Zpy=(07?-0.6+0.4í 
=-0.6 + 0.41 


En el segundo paso, el resultado del primer cálculo se convierte en el 
primer término de la ecuación, mientras que el punto de coordenadas original 
se queda en la ecuación como término independiente. 
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Figura 19-1 El conjunto de Mandelbrot 


El área ampliada se muestra en la Figura 19-2 


2)  Z¡=(-0.6+0.4í ) - 0.6 + 0.4 
= 0.36 - 0.48í - 0.16 - 0.6 + 0.4 
=-0.4 - 0.081 


El cálculo de la distancia entre la posición actual, -0.4 - 0.08/ y el punto 
cero del gráfico proporciona el resultado 0.407921561...: dado que esta dis- 
tancia no es mayor o igual a 2.0 (recuerde, se indicó antes que este valor sería 
importante; el porqué se verá en un momento), se continúan los cálculos de 
forma recursiva, generando un tercer término: 


3) Z,=(-0,4 - 0.087 )? -0.6.+ 0.4 
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Una vez más, la distancia calculada es: 0.178283369 mucho menor que 
2.0 (no presuponga que la distancia siempre va a disminuir). 


Dos puntos finales 


Con la fórmula recursiva utilizada por el conjunto de Mandelbrot, cada uno 
de los puntos calculados tiende a uno de los dos puntos finales. Primero, tras 
un número X de pasos recursivos, la distancia resultante sobrepasará el valor 
2.0 y, tras este punto, la distancia se incrementará de manera indefinida. 
Segundo, tras un número X de pasos recursivos, la distancia resultante será 
todavía inferior a 2.0 y puede esperarse que permanezca por debajo de 2.0. 

En el segundo caso, en el que la distancia no llega al valor 2.0 ni a superar 
éste (se han elegido 100 pasos recursivos como límite práctico) se puede decir 
que el punto yace en el interior del mar fractal, las amplias áreas vacías que 
conforman el rasgo dominante del conjunto de Mandelbrot. En este caso, 
puede decirse que el punto tiene una dimensión fractal inferior a 2. A este 
punto se le asigna de forma arbitraria un color de nivel del mar (esto es, forma 
parte del mar fractal). 

El primer caso, cuando la distancia supera eventualmente el valor 2.0, es 
el que determina los rasgos del paisaje circundante del mar fractal, haciendo 
más interesante el conjunto de Mandelbrot. Cada vez que la distancia recursi- 
va llega al punto de ruptura, la "altitud" del paisaje, en ese punto, viene dada 
por el número de pasos recursivos necesarios para llegar a dicho punto. Por 
ejemplo, si llega al punto de ruptura en el tercer paso recursivo, la altitud es 
3 y el punto se imprime en su correspondiente color. En otras palabras, la 
altitud es la medida de la rapidez con que cada punto, excepto los del nivel 
del mar, se aproxima al infinito. Los resultados conforman un complejo mapa 
de colores que muestran las curvas de nivel de un paisaje fractal. 

Hay más. Si se examinan las Figuras 19-1 y 19-2 (o mejor aún, su propia 
versión de colores), se observará que el mar fractal tiene muchas bahías a lo 
largo de sus orillas. Si se ampliasen (volviendo a hacer cálculos) algunas de 
estas áreas (como se ha hecho en la Figura 19-2) se observaría que todas las 
áreas del mar fractal, cuando se ven a una escala lo suficientemente grande, 
son contiguas. No hay ningún área aislada y, cuando se amplían, se observa 
que los principales rasgos vistos en la Figura 19-1 se vuelven a repetir a una 
escala cada vez menor por todo el conjunto de Mandelbrot. No obstante, éstas 
siempre permanecen unidas y con los rasgos de la mayor de las escalas. 


Desarrollo del conjunto de Mandelbrot 


El programa MANDEL.C aporta un desarrollo básico del conjunto de Man- 
delbrot, mostrando la totalidad del área comprendida entre los valores -2.0 y 
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Figura 19-2 Ampliación del conjunto de Mandelbrot 


+0.5 de longitud y -1.25 y +1.25 de latitud. Para ver áreas más reducidas del 
conjunto (y en mayor detalle) basta con cambiar los valores de OrigX, DimX 
OrgY y DimY. El resto del procedimiento de proyección se ajustará a los 
valores elegidos. Si se desean mayores ampliaciones, siempre puede incre- 


mentarse el valor del límite más allá de 100. Aviso: El incremento del valor 
de Limite puede aumentar los tiempos de representación. La presencia de un 
coprocesador matemático ayudará a reducir los tiempos de cálculo. 


MANDEL.C es breve y razonablemente sencillo. La única complejidad se 
encuentra en el algoritmo que permite resolver el cálculo reiterado de la ex- 
presión compleja: (x+y)% 


TempX = ( IterX * IterX ) - 
( IterY * IterY ) + PosX; 


IterY = 2 * ( Iterx * IterY ) + PosY; 
Iterx = TempX; 
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En los cálculos, TempX sirve para almacenar temporalmente los resultados 
iniciales, ya que tanto los argumentos variables (que se utilizan para el cálculo 
de cada resultado), como los valores originales deben estar disponibles en 
cada cálculo. 

El segundo cálculo es más sencillo. Hace uso de la función hypot (de la 
biblioteca matemática) para devolver el valor real que define la distancia 
absoluta al punto cero arbitrario (EjeX = 0, EjeY = 0). 


if( hypot( fabs( IterxX ), fabs( IterY ) ) >= 2.0 ) 
Terminar++; 


Observe que la función fabs (valor absoluto flotante) la utilizamos para 
asegurarnos de que los argumentos de /rypof van a ser exclusivamente positi- 
vos (evitando un error en coma flotante). El proceso de cálculo es muy sen- 
cillo pero, debido al número de puntos calculados, necesita tomarse un cierto 
tiempo para generar el conjunto de Mandelbrot completo. La presencia de un 
coprocesador acelerará las cosas, como lo haría una CPU rápida; sin embargo, 
incluso bajo circunstancias ideales, este proceso no es rápido. 


La curva de Henon 


Los paisajes fractales no son las únicas entidades curiosas que habitan el 
universo matemático. Existen otras, como la curva de Henon, ejemplo de una 
maravillosa criatura matemática conocida como un extraño confinador”. 

Al igual que el conjunto de Mandelbrot, el confinador de Henon utiliza una 
sencilla fórmula recursiva. A primera vista, parece dar lugar a un conjunto de 
puntos dispersos. A medida que el proceso avanza, puede observarse que los 
puntos dispersos empiezan a conformar una curva muy compleja, como se 
puede ver en la Figura 19-3, como si una extraña fuerza impulsara continua- 
mente a estos puntos, aparentemente arbitrarios, hasta llegar a reunirlos en un 
patrón coherente. De aquí el nombre de extraño confinador. 

La curva de Henon se comporta de la misma forma que el conjunto de 
Mandelbrot en el sentido de que cualquier porción de curva puede sufrir 
ampliaciones para dar paso al detalle, de forma que todo aquello que pudiera 
parecer un pequeño hilo, tras la ampliación, se convirtiera en una madeja de 
hilos y/o tirabuzones y curvas. como puede verse en la Figura 19-4, 


2 Sugerimos "estraño confinador" como una posible traducción del término inglés "strange attractor", introduci- 
do porel autor. (N. del 7.) 
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Figura 19-3 El confinador de Henon 


El confinador de Henon nos enseña cómo 
una sencilla fórmula recursiva (que genera 
lo que inicialmente parece una dispersión 
de puntos) da origen a una compleja línea 
repleta de pliegues y de trazos delicados. 


CONFINADOR DE HENON 
DO 


EscalaX = 1 

EscalaY 1,00 
DespX 0.0 
DespY 0.0 


Area aproximada de la sección 
de estallido abajo. 


Figura 19-4: Una vista más apro- 
ximada del mar fractal. 


Figura 19-4 El confinador de Henon - Una sección de estallido 


CONFINADOR DE HENON 
EscalaX 16.00 


EscalaY = 18.00 
DespX = -3600.0 
DespY = =500.0 


Se 
Eo 
Tres (de las muchas) áreas 
probables de búsqueda de 
nuevos e interesantes rasgos. 
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La fórmula del confinador de Henon se expresa como: 


X=Y+1-14*x? 
Y =03*X 


Aviso: a medida que la ampliación aumenta, se hace necesario el incre- 
mento del número de iteraciones, con objeto de imprimir el número de puntos 
necesarios para ganar detalle, 


La curva de Malthus 


Hace algunos años. mientras jugaba con el confinador de Henon, comencé a 
echar un vistazo a otras fórmulas recursivas y a investigar sus propiedades de 
una forma parecida. Hay una gran variedad de fórmulas recursivas, much 
de las cuales merece la pena ver. Una de las fórmulas con las que probé fue 
la fórmula de crecimiento de Malthus. Esta fórmula calcula, supuestamente, 
el crecimiento de una población a través de sucesivas generaciones. Se expre- 
sa como: 


Pre = R* Pa * (LP) 
donde R es el factor de crecimiento de las sucesivas generaciones de la po- 
blación, 

Sospecho que esta fórmula está excesivamente simplificada por motivos 
prácticos de cálculo del crecimiento de la población, pero, matemáticamente, 
no deja de ser interesante, ya que la curva maltusiana es otro extraño confi- 
nador o, de una manera más correcta, una familia de extraños confinadores 
con ciertas características fractales y también con algunas discontinuidades 
fascinantes. 

Dejando a un lado los aspectos prácticos?, la representación de los cambios 
en R para valores del rango 2.3-3.8 y el cálculo de varios miles de generacio- 
nes en cada valor, produce distintas curvas. Cada valor de R crea una única y 
compleja curva tras las primeras siete generaciones (aproximadamente). 

La Figura 19-5 nos muestra los valores de las primeras generaciones para 
cada R. Se puede ver una serie de segmentos que tienen su origen en la 
esquina inferior izquierda. También se ven las generaciones iniciales, antes 
que los valores estén inmersos en las proximidades del extraño confinador. 


3 Estos aspectos son objeto de investigación por parte de un profesor cualificado de la Universidad de Chiang 
Mai, quien va mucho más allá de mi explicación, 
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Figura 19-5 Flujo Maltusiano 


Flujo Malthusian 


/ 


Los dos gráficos surgen al representar las poblaciones bajo diferentes factores de crecimien- 
to. A esta escala pueden observarse discontinuidades catastróficas; sin embargo, hay otros 
rasgos que pueden hacerse visibles bien a escala superiores o bien seleccionando una vista 
diferente. 


Figura 19-6 Flujo Maltusiano (derivada) 


Flujo Malthusian 


Incluso dentro de las áreas aparente- 
mente contiguas pueden observarse ex- 
cepciones (si se observa con cuidado) 
En los anillos de Saturno se han obser- 
vado discontinuidades similares (pro- 
bablemente, por las mismas razones). 
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Una vez llegados a las proximidades de éste, los siguientes puntos (para cada 
valor de R) aparecerán en algún lugar a lo largo de la curva definida por él. 
La Figura 19-6 nos proporciona una segunda panorámica del mismo conjunto 
de confinadores, principalmente porque las distintas vistas nos revelan deta- 
lles que anteriormente hubieran podido quedar ocultos. 

Al igual que los ejemplos anteriores, la curva maltusiana se llega a enten- 
der mucho mejor si se observa su generación (preferiblemente en alta resolu- 
ción y pantalla en color), en vez de examinar una reproducción en blanco y 
negro del resultado final. 

A estas alturas debería haberse observado que existen varios puntos (valo- 
res de R) en los que el extraño confinador cambia de repente su forma y su 
sombra. En la serie final de confinadores (el grupo que forma la extensa curva 
de barrido) pueden observarse distintas discontinuidades en aquellas zonas en 
que los valores de R no crean curvas continuas, sino tan sólo unos pocos 
puntos. Dichos puntos siguen la misma forma que los confinadores adyacen- 
tes. 

En estos últimos casos, la única posibilidad es que esas regiones puedan 
ser artefactos de la máquina, productos de los cálculos que interactúan con las 
restricciones de la CPU y los algoritmos utilizados. Esta última posibilidad la 
dejamos para que las investigaciones de otros las aprueben o desaprueben. 
Puede que yo esté equivocado al hacer esta sugerencia, pero constituiría un 
error no mencionarlo, 

Lo dicho me lleva a mi excursión final en el mundo de lo matemáticamente 
extraño. 


Hic Draconis 


La curva Dragón es un patrón fractal muy interesante que comienza en forma 
de línea recta y, en cada una de las generaciones sucesivas, muestra una 
dimensión fractal igual a la raíz cuadrada de 2, Por ejemplo, tras cualesquiera 
dos generaciones, la dimensión (longitud) de la línea se convierte en el doble, 
si bien la distancia absoluta entre los puntos de principio y fin siempre per- 
manece constante. 

La Figura 19-7 muestra una curva Dragón en sus generaciones 1%, 2%, 3* y 
12*, igual a la creada por el algoritmo en DRAGON.C. Existen dos puntos en 
cada una de las figuras mostradas que deberían tenerse en cuenta. 

Primero, la curva Dragón está compuesta en su totalidad por segmentos 
lineales, todos ellos de idéntica longitud, que se cruzan siempre en ángulos de 
90%. Segundo, la curva Dragón siempre es una única línea continua que jamás 
se cruza consigo misma en ningún punto (aunque los vértices coincidan). 
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Figura 19-7 La curva Dragón 


Ambas representaciones utilizan la mis- 
1 ma fórmula para suministrar diferentes 


vistas de los resultados. 
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Teniendo en mente estos dos aspectos se puede disfrutar intentando un 
seguimiento de la curva a lo largo de su trayectoria. 

Por otra parte, si lo que se desea es un método menos gravoso, bastará con 
modificar el programa fuente (DRAGON.C) e introducir un pequeño tiempo 
de retardo que permita observar cómo se ha llevado a cabo el trazado de cada 
segmento, una vez hecho éste. 


Arabesco 


El algoritmo de la curva Dragón, con un pequeño cambio, es capaz de generar 
un segundo patrón, no menos interesante, denominado Arabesco. Para generar 
este segundo patrón fractal, basta con introducir la instrucción: 


sign *= -1; 


y ajustar la posición del eje y a las necesidades propias. 


Resumen 


El tema fractal es demasiado extenso para ser cubierto en detalle en un único 
capítulo o incluso en un mismo libro. Aquí, he podido aportar una vista rápida 
sobre un mundo repleto de detalles extraños y asombrosos. Sin embargo, 
existe una gran variedad de fuentes que pueden proporcionar algunas sugeren- 
cias que nos ayuden a continuar con la investigación. Algunas de ellas son: 


Mandelbrot Explorer 


Mandelbrot Explorer es un programa acompañado de una serie de imágenes 
Mandelbrot almacenadas, que puede utilizarse para explorar diferentes áreas 
del conjunto de Mandelbrot. Necesita del MS-DOS 2.0 ó versiones superiores 
de éste y gráficos EGA o VGA. Se puede conseguir en 


Peter Garrison 

1613 Altivo Way 

Los Angeles, CA 90026 
(213) 665-1397 


PROGRAMACIÓN DE GRÁFICOS EN TURBO C++ 


Chaos - Making a New Science 


Chaos, de James Gleick, se puede conseguir en Penguin Books, tanto encua- 
dernado en pasta como rústica. Se trata de una excelente introducción y guía 
no sólo al mundo de la matemática fractal, sino también al de la ciencia de 
los sistemas caóticos y al comportamiento caótico, y de cómo estas entidades 
matemáticas tienen efectos muy reales en el universo de la física. Se completa 
con numerosas láminas en color y se recomienda muy vivamente, A su vez, 
él mismo contiene una amplia bibliografía y referencias añadidas. 


Chaos 


Chaos, ha sido editado por Arun V. Holden y publicado por Princeton Uni- 
versity Press, en una colección internacional de artículos matemáticos y téc- 
nicos que nos conducen a los sistemas caóticos, a los confinadores extraños y 
a las dimensiones fractales. Fascinante e informativo (hace falta un vasto 
conocimiento de las matemáticas) este volumen no se recomienda a los dile- 
tantes. Sin embargo, será muy apreciado por aquellos que tengan una forma- 
ción adecuada y una cierta dosis de paciencia, 


La ciencia de las imágenes fractales 


Fractal Images, editado por Peitgen y Saupe, ha sido publicado por Springer- 
Verlag y contiene gran cantidad de ilustraciones en color, así como notas y 
explicaciones procedentes de una gran variedad de fuentes. 


//aazeaassess====== 
14 DRAGON.C Ll 
11 


Hifdef __TINY__ 

terror La demostración no funcina si se compila en un 
modelo TINY. 

itendif 


ttinclude <conio.h> 
include <stdio.h> 
ttinclude <stdlib.h> 
tinclude <stdarg.h> 
ttinclude <graphics.h> 
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int ControladorGrafico, ModoGrafico, CodigoError, 
EjeX[4098], EjeY[4098], Paso, Signo; 


void Iniciar() 
43 
ControladorGrafico = DETECT; 
initgraph( SControladorGrafico, S£ModoGrafico, 
"C:ANTICAMBGI" )5 
CodigoError = graphresult(); 
if( CodigoError != gr0k ) 
t 
printf (" Error en el Sistema Gráfico: %sin", 
grapherrormsg( CodigoError ) ); 
exit( 1); 


void Pausa() 

í 
while( kbhit() ) getch(); 
getch(); 


void GenerarDragon( int color ) 
t 
int i, j, dx, dy; 


j = Paso / 2; 

setcolor( color ); 

for( i= 1; i <= 4096; i += Paso ) 

1 
dx = EjeX[Paso + 1] - EjeX[il; 
dy = EjeY[Paso + i] - EjeY[il; 
Signo *= -1; 


EjeX[i + j] = EjeX[i] + ( dx + ( dy * Signo ) ) / 2; 
EjeY[i + 3] = EjeY[il + ( dy - (dx * Signo ) ) / 2; 
if( color !=0 ) 
1 
line( EjeX[il, EjeY[il, 
EjeX[i + jl., EjeY[i + 3] di 
line( EjeX[i + Jl, EjeY[i + 3], 


EjeX[i + Paso], EjeY[i + Paso] ); 
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void main() 


Paso = 4096; 
Signo = -1; 
Iniciar(); 
EjeX[1] = getmaxx() / 4; 
EjeX[4097] = 3 * getmaxx() / 4; 
EjeY[1] = EjeY[4097] = 2 * getmaxy() / 3; 
setcolor( BLUE ); 
line( EjeX[1], EjeY[1], EjeX[4097], EjeY[4097] ); 
delay( 1000 ); 
for( i=1; i<=13; i++ ) 
t 
clearviewport (); 
outtextxy( 1, 10, "CURVA FRACTAL DEL DRAGON"); 
GenerarDragon( i ); 
Paso /= 2; 
delay( 1000 ); 


) 
Pausa(); 
closegraph(); 


11 HENON.C 11 


Hifdef __TINY__ 
terror La demostración no funciona si se compila en el 
modelo TINY. 


ttendif 


ttinclude <conio.h> 
ttinclude <stdio.h> 
ttinclude <stdlib.h> 
tiinclude <stdarg.h> 
ttinclude <graphics.h> 


ttinclude "gprint.i" 


int ControladorGrafico; 
int ModoGrafico; 
int MaxColores; 


int CodigoError = 0; 
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int maxX, maxY; 
double EscalaX, EscalaY, DespX, DespY; 


void Iniciar() 
É 
ControladorGrafico = DETECT; 
initgraph( £ControladorGrafico, £ModoGrafico, 
¿NVTCNNBGI" );5 
CodigoError = graphresult(); 
if ( CodigoError != grOk ) 
t 


printf (" Error en el Sistema de Gráficos: %sin", 
grapherrormsgí CodigoError ) ); 
exit( 1); 
) 
maxX = getmaxx(); 
maxY = getmáxy(); 


J 

void Pausa() 

1 
if( kbhit() ) getch(); 
getch(); 

4 


void ExtranioConfinador () 

t 
int a, 1, Color, PosX, PosY; 
double Xant, Xnuevo, Yant, Ynuevo; 


11 Confinador de Henon 1/ 
"AA Xy tio 014%: 11 
Lol ADOS E 11 


0; 


Xant = Xnuevo = Yant = Ynuevo 


for( Color = 1; Color <= 15; Color++ ) 
for( 1 1; i <= 0x02FF; i++ ) 
t 
Xnuevo = Yant + 1 - ( 1.4 * Xant * Xant ); 


Ynuevo 0.3 * Xant; 
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PosX = ( Xnuevo * maxX / 3 * EscalaX ) + 
maxX / 2 + DespX; 
PosY = ( Ynuevo * maxY * EscalaY ) + 
maxY / 2 + DespY; 
if( ( PosX >= 0 ) €£ ( PosX <= maxX ) £8 
( PosY >= 0 ) £86 ( PosY <= maxY ) ) 
putpixel( PosX, PosY, Color ); 
Yant = Ynuevo; 
Xant = Xnuevo; 
) 
gprintxy( 10, 110, "CONFINADOR DE HENON "); 
gprintxy( 10, 120, "EscalaX = %5.2f", EscalaX ); 
gprintxy( 10, 130, "EscalaY = %5.2f", EscalaY ); 
gprintxy( 10, 140, " DespX = %8.5f", DespX ); 
gprintxy( 10, 150, " DespY = %8.5f", DespY ); 


void main() 
4 
Iniciar(); 
cleardevice(); 
EscalaX = 1; /* valores para ajustar la es: 
EscalaY = 1; 
DespX = 0; /* y la posición en pantalla A 
DespY = 0; 
ExtranioConfinador (); 
Pausa(); 
closegraph(); 


MALTHUS1.C 11 


Hifdef TINY. 

tterror La demostración no funciona si se compila en el 
modelo TINY. 

ttendif 


ttinclude <conio.h> 
ttiinclude <stdio.h> 
ttinclude <stdlib.h> 
tinclude <stdarg.h> 
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tinclude <graphics.h> 


int ControladorGrafico, ModoGrafico, MaxColores, 
maxX, maxY, MaxGen = 0x00FF, CodigoError; 


void Iniciar() 
( 
ControladorGrafico = DETECT; 
initgraph( £ControladorGrafico, sModoGrafico, 
"C¿ANTCANBGI" ); 
CodigoError = graphresult (); 
if ( CodigoError != grok ) 


t 
printf(" Error en el Sistema de Gráficos: %sin", 


grapherrormsg( CodigoError ) ); 
exit( 1 ); 
) 
maxX = getmaxx(); 
maxY = getmaxy(); 


void Pausa() 

1 
if( kbhit() ) getch(); 
getch(); 


void ExtranioConfinador () 
1 


int i, j, k, 1, Color, Contador, X, Y; 
double PobAnt, PobNueva, Razon; 


11 Crecimiento Maltusiano de Población 11 
10 Pn+1=R* (Pn- Pn*2 ) 11 


PobNueva = 0.0; 
Razon = 2.3; 
Color = BLACK; 
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fOX( ]= 1 J <= 1517 J++ ) 
1 
Color++; 
if( Color >= WHITE ) Color = BLUE; 
Contador = 0; 
Razon += 0.01; /* Razón de incremento */ 
PobAnt = 0.01; /* Pone a "gero" la población */ 
for( i= 1; i <= MaxGen; i++ ) 
t 
PobNueva = Razon * ( PobAnt * ( 1 - PobAnt ) ); 
X = PobAnt * maxX; 
Y = maxY - ( PobNueva * maxY ); 
putpixel( X, Y, Color ); 
if( PobAnt == PobNueva ), Contador++; 
else Contador = 0; 
if( Contador > 10 ) 1 = MaxGen; /* estancamiento 
== salida */ 
PobAnt = PobNueva; 
ANO E 
outtextxy( 10, 10, "Flujo Maltusiano" ); 
) 
main() 
t 
Iniciar(); 
cleardevice(); 
ExtranioConfinador (); 
Pausa(); 
closegraph(); 
) 


======// 


11 MALTHUS2.C 1/ 


ass===ss====// 


Hifdef _ TINY__ 


tterror L 


Hendif 


Htinclude 
ttinclude 
ttinclude 
include 
Htinclude 


a demostración no funciona si se compila en un 
modelo tiny. 


<conio.h> 
<stdio.h> 
<stdlib.h> 
<stdarg.h> 
<graphics.h> 
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ttinclude "gprint.i" 


int ControladorGrafico, ModoGrafico, MaxColores, 
maxX, maxY, CodigoError; 


void Iniciar() 
E 
ControladorGrafico = DETECT; 
initgraph( £ControladorGrafico, £ModoGrafico, 
"C:ANTOCANBGI" ); 
CodigoError = graphresult(); 
if£( CodigoError != gr0k ) 
1 
printf(" Graphics System Error: %sin", 
grapherrormsg[ CodigoError ) ); 
exit( 1 ); 
di 
maxX = getmaxx(); 
maxY = getmaxy(); 


) 


void ExtranioConfinador () 

t 
int i, j, k, 1, Color, Contador; 
double PobAnt, PobNueva, X, Y, Razon; 


PobAnt = PobNueva = 0.0; 
Razon = 2.3; 


Y =0; 
for( j = 1; j <= 15; j++ ) 
1 

Color++; 


if( Color > WHITE ) Color = BLUE; 
for( k=1; k<=10; k++ ) 
t 
Contador = 0; 
Razon = Razon + 0.01; 
PobAnt = 0.01; 
for( i= 1; i<= 1000; i++ ) 
t 
PobNueva = Razon * ( PobAnt * ( 1 - PobAnt ) 
X = PobNueva - PobAnt; 
putpixel( ( X * maxX / 2 ) + maxX / 2, 


) 


( maxY / 2) - ( Y * maxY / 2 ), Color ); 


if( PobAnt PobNueva ) Contador++; 
else Contador = 0; 
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if( Contador > 100 ) i = 10000; 
PobAnt = PobNueva; 
Y =X; 
A 
outtextxy( 10, 10, "Flujo Maltusiano" ); 
3 


void Pausa() 

t 
while( kbhit() ) getch(); 
getch(); 


main() 


t 


Iniciar(); 
cleardevice(); 
ExtranioConfinador (); 
Pausa(); 
closegraph(); 


ascosecsossososse======// 


Hifdef _ TINY 

terror La demostración no funciona si se compila en el 
modelo TINY. 

Hendif 


ttinclude <conio.h> 
ttinclude <stdio.h> 
ttinclude <stdlib.h> 
ttinclude <stdarg.h> 
tinclude <graphics.h> 
include <math.h> 


int ControladorGrafico; 
int ModoGrafico; 
int CodigoError = 0; 


EN LOS UMBRALES DE LOS MARES DE FRACTALES 
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void Iniciar() 
t 
ControladorGrafico = DETECT; 
initgraph( £ControladorGrafico, £ModoGrafico, 
"C¿ANTCANBGI" );5 
CodigoError = graphresult (); 
if ( CodigoError != gr0k ) 
t 
printf (" Error en el Sistema de Gráficos: %sin", 
grapherrormsgí CodigoError ) ); 
exit( 1); 


void Pausa() 


t 
while( kbhit() ) getch(); 
getch(); 
J 
int maxX, maxY, Limite, i, j, Pasos, Terminar; 


double PasoX, PasoY, PosX, PosY, OrigxX, OrigY, 
DimX, DimY, IterX, IterY, TempX; 


main () 
t 
Area de 
A Máandelbrot 11 
Iniciar(); // 0 
maxX = getmaxx(); 1/ -=1,25 Ye 
maxY = getmaxy(); 10 > 11 
Limite = 100; 18 DA 
dla ei += -> +0.5 2 
Origx = -2.0; 1! MM 
OrigY = -1.25; ei v 11 
DimX = 0.5; 1 41.25 e 
DimY = 1.25; 11 11 
- =/1 
PasoX = ( DimX - OrigX ) / maxX; 


PasoY ( DimY - OrigY ) / maxY; 

for( i= 0; i <= maxX; i++ ) 
for( Jj = 0; j <= maxY; j++ ) 
1 
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PosX = Origx + i * PasoX; /* inic. el valor para 


la posición */ 


PosY = OrigY + j * PasoY; 


IterX = 0. 


0; /* pone a cero los 
valores iniciales */ 


IterY = 0.0; 


Terminar 


Pasos = 0; /* pone a cero los 
pasos y la señal */ 


while( !Terminar ) 


1 
TempX = ( IterX * IterX ) - 
( _IterY * IterY ) + PosX; 
IterY = 2 * ( IterX * IterY ) + PosY; 
IterX = TempX; 
Pasos++; 
if( hypot( fabs( IterX ), fabs( IterY ) ) 
>= 2.0) 
Terminar++; 
if( Pasos >= Limite ) Terminar++; 
if( kbhit() ) /* salida del bucle al pulsar 
una tecla */ 
1 
di = maxX; 
Jj] = maxY; 
Terminar++; 
1 Es 
if( Pasos < Limite ) putpixel( i, j, Pasos ); 
) 
Pausa(); 


closegraph(); 


Apéndice A 


arc 


bar 


Funciones gráficas 


int centrox, centroy, angulocomienzo, angulofin, radio; 
arc (centrox, centroy, angulocomienzo, angulofin, radio); 


Dibuja un arco circular; los valores angulocomienzo y angulofin deben espe- 
cificarse en grados (0-360); centrox, centroy y radio deben ir en pixels. 


int izquierda, arriba, derecha, abajo; 
bar( izquierda, arriba, derecha, abajo); 


Dibuja una barra rectangular sólida, haciendo uso de los valores vigentes del 
color y patrón de relleno. La función bar3d, con profundidad cero permite 
crear el contorno de una barra. 


bar3d 


int izquierda, arriba, derecha, abajo, profundidad, 
indicatapa; 
bar3d( izquierda, arriba, derecha, abajo, profundidad, 
indicatapa); 


Delimita el contorno de una barra rectangular tridimensional haciendo uso del 
color y del estilo de línea vigentes. Posteriormente procede a su relleno con 
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los valores vigentes del color y patrón de relleno. La profundidad de la barra 
debe especificarse en pixels (alrededor de 25 por 100 de la anchura). Si el 
parámetro indicatapa vale cero, no aparecerá la cubierta, con lo que se da luz 
verde al apilamiento de las barras. 

circle 


int centrox, centroy, radio; 
circle (centrox, centroy, radio); 


Dibuja un círculo del color vigente, centrado en las coordenadas especificadas 
y con el radio dado (en pixels). 
cleardevice 


cleardevice(); 
Borra la pantalla gráfica y desplaza la posición vigente (PV) a la posición 
(0,0). 

clearviewport 


clearviewport (); 
Borra la ventana gráfica vigente, desplazando la posición vigente (PV) a la 
posición (0,0) de la ventana gráfica, 

closegraph 


closegraph(); 


Utiliza _graphfreemem para liberar la memoria reservada para el sistema grá- 
fico y restituye la pantalla al modo de texto detectado cuando se llamó a la 
función initgraph. 


detectgraph 


int controladorgrafico, modografico; 
detectgraph (£controladorgrafico, Smodografico); 


Suele ser llamada por initgraph para examinar el hardware. Devuelve sus 
valores al controlador gráfico. También devuelve el mayor de los modos vá- 
lidos. 
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drawpoly 


int puntos; 
int poligono[]=1100,100,200,100,200,200,100,200,100,100); 
drawpoly(puntos, poligono) 


Dibuja el contorno de un polígono con el valor del color vigente; puntos 
proporciona el número de vértices del polígono; poligono apunta a una se- 
cuencia de pares enteros; cada uno de ellos define el par coordenado x,y de 
cada vértice del polígono. Si se desea dibujar una figura cerrada de » vértices, 
puntos debe valer n+1, y el n-ésimo par coordenado (el último) debe ser igual 
al primer par coordenado. 

En caso de error, graphresult devuelve -6, 


ellipse 


int centrox, centroy, angulocomienzo, 
angulofin, radiox, radioy; 
ellipse (centrox, centroy, angulocomienzo, 
angulofin, radiox, radioy); 


Dibuja un arco de elipse centrado en (x,y) con radios diferentes según los ejes 
x e y. Los ángulos de comienzo y final deben especificarse en grados. Si se 
desea crear una elipse completa (cerrada), los ángulos de comienzo y final 
deberán ser O y 360 grados, respectivamente. Hace uso del color vigente. 


farmalloc 


void far *imagenbits; 

int izquierda, arriba, derecha, abajo; 

imagenbits = farmalloc (imagesize(izquierda, arriba, 
derecha, abajo)); 


Reserva memoria para una imagen de pixels (o cualquier otra aplicación). 
Devuelve un puntero al área reservada. Deberá hacer uso de farmalloc para 
modelos pequeños de datos. Para reservar espacio para un puntero far deberá 
incluirse el archivo de cabecera <alloc.h>. 


fillellipse 


int centrox, centroy, radiox, radioy; 
fillellipse (centrox, centroy, radiox, radioy); 
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(Para la versión 2.0 de Turbo C o posteriores). La función fillellipse dibuja 
una elipse, haciendo uso de los argumentos centrox, centroy como punto cen- 
tral y de radiox, radioy como radios horizontal y vertical, procediendo poste- 
riormente al relleno de la elipse con los valores vigentes del color y del patrón 
de relleno. A diferencia de la función ellipse, esta función no admite los 
valores angulares de comienzo y final. Tampoco permite el trazado de arcos 
elípticos. 


fillpoly 


int puntos; 

int poligono[] = (100, 100, 200, 100, 200, 200, 
» 100, 200, 100, 100); 

fillpoly(puntos, poligono); 


Dibuja y rellena un polígono con los valores vigentes de estilo de relleno y 
color; puntos proporciona el número de vértices del polígono; poligono apunta 
a una secuencia de pares de enteros, cada uno de los cuales define las coor- 
denad: de uno de sus vértices. Para dibujar una figura cerrada de n 
vértices, puntos debe valer n+1 y el último par coordenado (n-ésimo) debe 
coincidir con el primero. En caso de error, graphresult devuelve un -6, 


floodfill 


int puntox, puntoy, colorborde; 
flooáfi1l1l(puntox, puntoy, colorborde); 


Rellena una región cerrada definida por colorborde, Comienza en (x,y), un 
punto interior del área que debe rellenarse, y utiliza los valores vigentes del 
color y del patrón de relleno. Si el punto de comienzo se encontrara fuera de 
la región cerrada, se procedería al relleno del exterior de ésta. En caso de que 
la línea que define la región tuviera una discontinuidad el proceso de relleno 
se escaparía a través de ella. 

Por motivos de compatibilidad futura, se aconseja el uso de fillpoly en 
lugar de floodfill. En caso de error, graphresult devolverá el valor -7. 


getarccoords 


struct arccoordstype infoarco; 
getaccoords (£infoarco); 


Devuelve las coordenadas de la última llamada a la función arc. Su estructura 
arccoordstype se define en GRAPHICS.H como: 
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struct arccoordstype (int x, y; 
int xstart, ystart, xend, yend;); 


Esta estructura define el centro (x,y), el punto de comienzo (xstart, ystart) 
y el punto final (xend, yend) del arco. Estos valores pueden utilizarse para 
dibujar enlaces y otras líneas hacia las terminaciones de aquél. También los 
utiliza la función pieslice. 


getaspretratio 


int aspx, aspy; 
getaspectratio(tkaspx, £aspy); 


Devuelve los aspectos según los ejes x e y. El factor de aspecto se calcula 
como aspx/aspy y se utiliza como factor de escala en las funciones arc y 
circle, así como en las rutinas pieslice para conseguir que los círculos salgan 
redondos en la pantalla. 

Cada controlador gráfico y cada modo gráfico tienen un factor de aspecto 
asociado determinado por la altura y la anchura relativas de los pixels. Por 
ejemplo, en el sistema gráfico VGA, en que cada pixel es un cuadrado, aspx 
es igual a aspy, con lo que el factor de aspecto es 1. El factor de aspecto de 
y se normaliza a 10000; en general, aspx<=10000 (la mayoría de los pixels 
son más altos que anchos). 


getbkcolor 

int colorfondo = getbkcolor(); 

Devuelve el valor vigente del color de fondo. 
getcolor 

int colorprimplano = getcolor(); 

Devuelve el valor vigente del color de primer plano. 


getdrivername 


char *nombrecontrolador; 
nombrecontrolador = getdrivername(); 


La función getdrivername devuelve un puntero a una cadena que identifica al 
controlador gráfico vigente. 
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getfillpattern 


char infopatronrelleno[8]; 
getfillpattern(sinfopatronrelleno); 


Copia un patrón de relleno definido por el usuario en la memoria. 


getfillsettings 


struct fillsettingtype inforrelleno; 
getfillsettings (Sinforrelleno); 


Devuelve información sobre el patrón de relleno vigente. La estructura fillset- 
tingtype viene definida en GRAPHICS.H como: 


struct fillsettingtype (int pattern; 
int color); 


getgraphmode 


int modoahora; 
modoahora = getgraphmode(); 


Devuelve el modo gráfico vigente cargado por initgraph o setgraphmode. 


getimage 


ttinclude <alloc.h> 

void far *imagenbits; 

int izquierda, arriba, derecha, abajo; 

imagenbits = farmalloc ( imagesize(izquierda, arriba, 
derecha, abajo) di 

getimage (izquierda, arriba, derecha, abajo, imagenbits); 


Traslada una imagen de bits desde la región especificada a la memoria. Los 
cuatro parámetros enteros definen el área que debe almacenarse. En caso de 
necesidad de memoria para almacenar la imagen, utilice imagesize (la reserva 
no debe ser inferior a los 64 Kb). Por compatibilidad con los modelos peque- 
ños de datos, deberá utilizarse la función farmalloc en lugar de malloc. En 
este caso deberá incluirse el archivo alloc.h. 
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getlinesettings 


struct linesettingstype infolinea; 
getlinesettings (*infolinea); 


Carga en infolinea el estilo de línea vigente, el patrón (upattern) y la anchura. 
La estructura linesettingstype viene definida en GRAPHICS.H como: 


struct linesettingstype í int linestyle; 
unsigned upattern; 
int thickness; di 


getmaxcolor 


int MaxColores = getmaxcolor() + 1; 


Devuelve el mayor de los colores válidos (tamaño de la paleta -1) para el 
modo gráfico vigente. 


gelmaxx 


int maxX = getmaxx(); 


Devuelve la máxima coordenada de pantalla según el eje x (máx PV) para el 
controlador y el modo gráfico vigentes. 


getmaxy 


int maxY = getmaxy(); 


Devuelve la máxima coordenada de pantalla según el eje y (máx PV) para el 
controlador y el modo gráfico vigentes. 
getmodename 


char *nombremodo; 
nombremodo = getmodename (); 


La función getmodename devuelve un puntero a la cadena que identifica el 
modo gráfico vigente. 
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getmoderange 


int controladorgrafico, modobajo, modoalto; 
getmoderange (controladorgrafico, £modobajo, £modoalto); 


Proporciona el mayor y el menor de los modos gráficos posibles del contro- 
lador gráfico especificado mediante controladorgrafico, Si controladorgrafico 
no es válido se devuelven los valores modobajo y modoalto con el valor -1. 


getpalette 


struct palettetype paleta; 
getpalette(£paleta); 


Carga en paleta los valores de la paleta vigente. La estructura palettetype está 
definida en GRAPHICS.H como: 


struct palettetype (unsigned char size; 
signed char colors[MAXCOLORS + 1]; ); 


paleta.size proporciona el número de colores válidos para el controlador y el 
modo gráfico vigentes; paleta.colors es una matriz de size de octetos que 
contiene el número del color de cada elemento de la paleta. 


getpixel 


int x, y; 
color = getpixel (x, y); 


Devuelve el valor del color del pixel ubicado en (x,y). 


gettextsettings 


struct textsettingstype infotexto; 
gettextsettings (S£infotexto); 


Carga en infotexto la fuente de texto activa, la dirección, el tamaño y la 
justificación vertical y horizontal. La estructura textsettingstype está definida 
en GRAPHICS.H como: 


struct textsettingstype (int font; int direction; 
int charsize; 
int horiz; int vert; Ey, 
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getviewsettings 


struct viewporttype ventanagrafica; 
getviewsettings (Sventanagrafica); 


Carga en ventanagrafica las coordenadas de la ventana gráfica y el indicador 
de solapamiento. La estructura viewporttype está definida en GRAPHICS.H 
como: 


struct viewporttype [ int left, top, right, bottom; 
int clipflag; 1) 


Las esquinas de la ventana gráfica se especificarán como coordenadas ab- 
solutas de pantalla. Si clipflag (indicador de solapamiento) es distinto de cero, 
todas las líneas quedarán truncadas en los márgenes de la ventana gráfica 
vigente; en caso contrario, las líneas se extenderán a lo largo de toda la 
pantalla. 


getx 


int posx = getx(); 


Devuelve la coordenada x de la posición vigente (PVx) relativa a la ventana 
gráfica. 
g 


gely 


int posy = gety (); 


Devuelve la coordenada y de la posición vigente (PVy) relativa a la ventana 
gráfica. 


gprintf (no está incluida en GRAPHICS.LIB) 


finclude <stdarg.h> 
void gprintf (int *xpos, int *ypos, char *fmt, ...) 
1 
va_list argptr; 
char cadena [140]; 
struct textsettingstype infotexto; 
gettextsettings(Kinfotexto); 
va_start (argptr, fmt); 
vsprintf (cadena, fmt, argptr); 
outtextxy(*xpos, *ypos, cadena); 
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if (infotexto.direction == HORIZ_DIR); 

*ypos += textheight (cadena) + 2; 
else *xpos += textheight (cadena) + 2; 
va_end (argptr); 


La longitud del argumento fimt no debiera superar el valor 140. 

La rutina gprintf es el equivalente gráfico de printf. Esta rutina no está 
incluída en GRAPHICS.LIB. Debe ser generada por el programador. 

El texto de salida puede manipularse según las orientaciones horizontal y 
vertical. En la orientación horizontal, la posición PV según el eje X permane- 
ce invariable mientras el valor de PV según el eje Y va descendiendo a lo alto 
de las posiciones definidas por la altura de la cadena de trabajo más dos 
pixels. En la orientación vertical, el valor de PV según el eje X se incrementa 
en la anchura de la cadena más dos pixels, mientras que el PV según el eje Y 
no sufre variación; bajo cualquier otra circunstancia, la función outtextxy se 
encarga del tratamiento del texto de salida. 


gprintxy (no está incluída en GRAPHICS.LIB) 


void gprintxy (xpos, ypos, Amr Y 


La rutina gprintxy funciona de la misma forma que egprintf. Se distingue de 
ésta en que admite directamente como argumentos valores coordenados y no 
devuelve una posición de pantalla adaptada a la siguiente cadena de salida. 
Esta rutina no está incluída en GRAPHICS.LIB, por lo que debe ser creada 
por el programador. 


graphdefaults 


graphdefaults(); 


Restituye todos los valores gráficos con sus valores por omisión, incluyendo 
la transformación de la ventana gráfica en pantalla completa, la carga del 
punto PV con el valor (0,0), la restitución de la paleta por omisión, la restitu- 
ción de los colores de fondo y de primera plana, el estilo y el patrón de relleno 
por omisión, la fuente de texto por omisión y la justificación. 


grapherrormsg 


char *MsgErr = grapherrormsg (CodigoError); 


Devuelve un puntero a la cadena seleccionada por CodigoError. 
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_graphfreemem 


unsigned dimension; 
int *puntmem; 
_graphfreemem (£puntmem, dimension); 


Suele ser llamada por closegraph para eliminar la memoria reservada para los 
controladores, las fuentes y las áreas de memoria intermedia. Por omisión, 
_graphfreemem llama a la función free. Si lo que Vd. desea es llevar a cabo 
una gestión personalizada de la memoria, siempre podrá definir una nueva 
función _graphfreemem. 


_graphgetmem 


unsigned dimension; 
_graphgetmem (dimension); 


Suele ser llamada por initgraph para reservar espacio de memoria para los 
controladores gráficos, las fuentes de caracteres gráficos y las áreas de me- 
moria intermedia. Por omisión, _graphgetmem hace uso de la función malloc 
para reservar espacio de memoria de forma dinámica. Si lo que Vd, desea es 
llevar a cabo una gestión personalizada de la memoria, siempre podrá definir 
una nueva función _graphgetmem. 


graphresult 
int CodigoError = graphresult (); 


Devuelve el código de error de la última operación gráfica fallida. 


imagesize 


unsigned dimension = imagesize (izquierda, arriba, 
derecha, abajo); 


Devuelve el número de octetos necesarios para almacenar una imagen de bits, 
Si el tamaño que se necesita supera los 64 Koctetos, devuelve el código -1 
(OXFFFF). 


initgraph 
int controladorgrafico = DETECT, modografico; 
char *caminocontrolador; 


initgraph(S+controladorgrafico, £modografico, 
caminocontrolador); 


PROGRAMACIÓN DE GRÁFICOS EN TURBO C++ 


Inicia el sistema gráfico mediante la carga del controlador gráfico y la resti- 
tución del modo gráfico. Cuando controladorgrafico se carga con DETECT 
(0), se produce la llamada a detecteraph para examinar el adaptador gráfico 
del sistema y seleccionar el modo de resolución más alto. En caso de no 
detectarse ningún hardware gráfico, controladorgrafico se carga con -2 y 
graphresult también devuelve -2, 

Al activar el camino de localización del entorno gráfico se comete un error 
muy habitual: 


char *caminocontrolador "C: VTURBOCABG: 


en lugar de 
char *caminocontrolador = "C:ANTURBOCIABGI"; 


También puede asignarse un controladorgrafico concreto. Con caminocon- 
trolador debe especificarse el directorio en el que se encuentran los controla- 
dores BG y las fuentes ,CHR. 


installuserdriver 


controlador = installuserdriver ("DRIVER", 
detect_driver() ); 


Esta función permite la instalación de un controlador gráfico del usuario o 
aportado por el vendedor, en la tabla interna BGI. 


installuserfont 


int FUENTE_USUARIO = 0; 
FUENTE_USUARIO=installuserfont ( 
"MCaminoFuentelANombreFuente.CHR"); 


La función installuserfont carga una fuente .CHR (segmentada) que no esté 
incluída en el sistema BGI, devolviendo un número identificativo de ésta. Este 
número puede pasarse a la función settextstyle para seleccionar la fuente. En 
un momento determinado pueden llegar a instalarse hasta 20 fuentes externas. 
Si la tabla de fuentes internas estuviera completa, se devolvería el valor -11 
(grError). 
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line 
int comienzox, comienzoy, finx, finy; 
line (comienzox, comienzoy, finx, finy); 
Dibuja una línea entre los dos puntos especificados, con el color, el estilo de 
línea y la anchura vigentes, sin modificar la posición vigente (PV). 
linerel 
int despx, despy; 
linerel (despx, despy); 
Dibuja una línea desde la posición vigente hasta otro punto separado de PV 
en la distancia despx, despy; utiliza los valores vigentes del color, del estilo 
de línea y de la anchura; además actualiza PV con una nueva posición. 
lineto 
int x, y; 
lineto (x,y); 
Dibuja una línea desde la posición vigente hasta el punto especificado a través 
de (x,y), haciendo uso de los valores vigentes del color, estilo de línea y de la 
anchura, Define como nuevo PV el punto (x,y). 
malloc 
void *imagenbits; 
int izquierda, arriba, derecha, abajo; 
imagenbits = malloc ( imagesize(izquierda, arriba, 
derecha, abajo) ); 
Reserva memoria para una imagen de pixels (u otras aplicaciones), devolvien- 
do un puntero a la dirección de comienzo del área reservada, 
moverel 


int despx, despy; 
moverel (despx, despy); 


Desplaza PV en la distancia relativa especificada a través de (despx,despy). 
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moveto 


int Xx, y; 
moveto (x,y); 


Desplaza PV al punto absoluto especificado a través de (x.y). 


outtext 


outtext ("Cadena para la ventana gráfica"); 


Visualiza sobre la ventana gráfica una cadena que comienza en PV. Para ello 
hace uso de los valores vigentes de la fuente, el color, el tamaño del carácter, 
la dirección y la justificación del texto. Si la justificación horizontal es 
LEFT_TEXT y la dirección es HORIZ_DIR, entonces la coordenada de PV 
sobre el eje x se adelanta en textwidth (cadena) (en caso contrario PV no sufre 
ninguna modificación). 


outtextxy 


int x,y; 
outtextxy(x, y, "Cadena para la ventana grafica"); 


Muestra sobre la ventana gráfica una cadena que comienza en la posición 
(x.y). Para ello hace uso de los valores vigentes de la fuente, el color, el 
tamaño del carácter, la dirección y la justificación del texto. Las coordenadas 
de PV no se modifican. 


pieslice 


int centrox, centroy, angulocomienzo, angulofin, radio; 
pieslice (centrox, centroy, angulocomienzo, angulofin, 
radio); 


Dibuja y rellena una posición de tarta centrada en (centrox, centroy), con un 
arco dado por los ángulos de comienzo y final (en grados). La porción de tarta 
se delimita con una línea en color y luego se rellena, haciendo uso de los 
valores vigentes del patrón de relleno y del color. 


putimage 


void far *imagenbits; 
int izquierda, arriba, opciones; 
putimage (izquierda, arriba, imagenbits, opciones); 
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Escribe sobre la pantalla una imagen de bits previamente almacenada. La 
esquina superior izquierda de la imagen aparecerá en la posición (izquier- 
da,arriba). El argumento opciones controla la forma en que cada pixel de la 
imagen (color) se combina con los pixels existentes en la pantalla, 


putpixel 


int posx, posy, color; 
putpixel (posx, posy, color); 


Carga en el pixel dado por (posx,posy) el color especificado. 


rectangle 


int izquierda, arriba, derecha, abajo; 
rectangle (izquierda, arriba, derecha, abajo); 


Dibuja un rectángulo con los valores vigentes del estilo de línea, la anchura 
y el color. 


registerbgidriver y registerfarbgidriver 


int ControladorGrafico; 
if (registerbgidriver (ControladorGrafico) < 0) exit (1); 


La función registerbgidriver se utiliza para dar de alta un controlador gráfico 
enlazado. Si no encontrara el controlador gráfico especificado, devolvería un 
código de error negativo; en caso contrario, devolveríd un número interno de 
controlador, La función registerfargbidriver sólo debería llamarse en caso de 
utilizar la opción /F junto a la la utilidad BGIOBJ.EXE. 


registerbgifont y registerfarbgifont 


int FuenteGrafica; 
if (registerbgifont (FuenteGrafica) < 0) exit(1); 


La función registerbgifont se utiliza para dar de alta una fuente de caracteres 
segmentada (ésta deberá estar enlazada). Si la fuente especificada no se en- 
contrase, la función devolvería un código de error negativo. La función regis- 
terfarbgifont sólo debería llamarse en caso de utilizar la opción /F junto a la 
utilidad BGIOBJ.EXE. 
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restorecrtmode 


restorecrtmode(); 


Restituye el modo visual a partir del modo de texto detectado por initgraph. 
Se puede utilizar junto a setgraphmode para conmutar entre los modos gráfi- 
cos y texto. 


sector 


int centrox, centroy, angulocomienzo, angulofin, 
radiox, radioy; 
sector (centrox, centroy, angulocomienzo, 
angulofin, radiox, radioy); 


La función sector genera un arco elíptico, dibuja unas líneas desde los puntos 
finales al centro y luego rellena la figura completa. El contorno del sector se 
dibuja haciendo uso de los valores vigentes del color y del estilo de las líneas 
de los radios; posteriormente se rellena el sector, haciendo uso de los valores 
vigentes de patrón y del color de relleno (consulte floodfill). El ajuste del 
factor de aspecto de la pantalla es automático. 


setactivepage 


int numpagina; 
setactivepage (numpagina); 


Selecciona la página gráfica numpagina como página de salida. Puede que 
esta página sea la página visual activa o puede que no lo sea (consulte setvi- 
sualpage). En cualquier caso, todas las informaciones gráficas de salida se 
dirigen sobre esta página. En la actualidad, sólo las tarjetas gráficas EGA, 
VGA y Hércules admiten páginas gráficas (o de texto) múltiples. Es útil en 
animación. 


setallpalette 


struct palettetype nuevapaleta; 
setallpalette (Snuevapaleta); 


Convierte nuevapaleta en la paleta vigente. Todo cambio en los colores tiene 
efecto de inmediato. Los colores de nuevapaleta deben asignarse a través de 
setpalette. 
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setbkcolor 


int colorfondo; 
setbkcolor (colorfondo) ; 


El argumento colorfondo puede ser un nombre o un valor. 


setcolor 


int colorprimerplano; 
setcolor (colorprimerplano); 


Define el color de dibujo vigente por medio de paleta.colors |colorprimerpla- 
no]. 


setfillpattern 


int color; 

char diamante[8] = ([ 0x10, 0x38, 0x7C, OxFE, 
0x7C, 0x38, Ox10, 0x00); 

setfillpattern(S$diamante, color); 


Selecciona un patrón de relleno de 8x8 definido por el usuario. El patrón 
diamante es una secuencia de 8 octetos, donde cada octeto se corresponde con 
8 pixels. Los bits activos activan los pixels; lo contrario sucede con los bits 
inactivos. El patrón de ejemplo diamante genera un pequeño patrón de 7x7 
con un pixel de margen a la derecha y arriba. 


setfillstyle 


setfillstyle (SOLID_FILL, GREEN); 


Carga los valores vigentes del color y del patrón de relleno, 

Todos los patrones excepto EMPTY_FILL utilizan el color de relleno vi- 
gente. Nota: el patrón 12 (USER_FILL) sólo puede llamarse una vez que 
setfillpattern haya establecido el patrón de relleno definido por el usuario. 


setgraphbufsize 


unsigned tammeminterm, antigareainterm; 
antigareainterm = setgraphbufsize(tammeminterm); 


Las distintas rutinas gráficas utilizan una zona de memoria intermedia creada 
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por initgraph vía _graphgetmem. El tamaño por omisión es de 4 Kb (4096 
octetos), aunque puede decrementarse para ahorrar espacio o bien incremen- 
tarse en caso de necesitar más memoria intermedia. 

La función setgraphbufsize debe llamarse antes de llamar a initeraph. 


setgraphmode 


int modografico; 
setgraphmode (modografico); 


Restituye el modo texto como modo gráfico, con borrado de pantalla. El modo 
gráfico debe haber sido iniciado previamente con initgraph. 


setlinestyle 


unsigned patronlinea; 
int estilo, anchura; 
setlinestyle(estilo, patronlinea, anchura); 


Carga los valores vigentes de anchura y estilo de línea. Nota: Puede asignarse 
una anchura de línea de 2 unidades, pero cualquier valor mayor que 3 provo- 
cará un error gráfico, así como la restitución de los valores por omisión del 
estilo y de la anchura de línea. 


setpalette 


int indicepaleta, color; 
setpalette (indicepaleta, color); 


En cualquiera de los modos gráficos visuales de 320x320 pixels (CGA, 
MCGA o ATKrT), las selecciones de los colores se limitan a las cuatro paletas 
predefinidas: CO, Cl, C2 y C3. El color de fondo de cada paleta (índice 0) 
puede ser definido por el usuario; sin embargo, los colores 1,2 y 3 no pueden 
sufrir ninguna modificación. En otros modos gráficos, pueden redefinirse to- 
dos los colores. Las constantes simbólicas de los colores se definen en GRA- 
PHICS.H. 

La tarjeta gráfica IBM-8514 y el controlador IBM8514 admiten una paleta 
de 256 colores entre un total de 262.144 (256 K) posibles. No se contempla 
ninguna constante simbólica para este controlador; sin embargo, la tarjeta 
gráfica IBM-8514 puede emular los modos VGA (como IBM8514LO, aunque 
se recomienda el controlador VGA por motivos de compatibilidad; consulte 
initgraph). Cada color viene definido por tres valores de seis bits para los 
componentes rojo, verde y azul. 
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setrbgpalette 


int numcolor, valorrojo, valorazul, valorverde; 
setrbgpalette(numcolor, valorrojo, valorazul, 
valorverde); 


La rutina setrbgpalette se usa en combinación con el controlador IBM8514. 
El argumento numcolor permite la definición de los colores de la paleta (0- 
255) a través de los argumentos valorrojo, valorazul y valorverde. Sólo se 
utilizan los seis bits más significativos del octeto de menor peso de cada 
argumento de color (valores de O a 252, en pasos de a 4. Los argumentos de 
252, 253, 254, 255 se tratan de la misma manera ya que los 6 bits más 
significativos son los mismos). 

Las otras rutinas de tratamiento de la paleta incluídas en la biblioteca 
gráfica no son válidas bajo el controlador IBM8514, en modo IBM8514HI 
(1023x768 pixels). Entre estas últimas se incluyen setallpalette, setpalette y 
getpalette. Tampoco se puede utilizar la rutina floodfill con este controlador, 


settextjustify 


int justifhoriz, justifvert; 
settextjustify (justifhoriz, jJustifvert); 


Carga los valores de justificación horizontal y vertical del texto. Los valores 
por omisión son LEFT_TEXT, TOP_TEXT (0,2). 

Cuando la justificación es LEFT_TEXT y direccion = HORIZ_DIR, tras 
una llamada a outtext o a gprintf por parte de textwidth (cadena), se adelantará 
la posición vigente de x. 


settextstyle 


int fuente, dirección, dimensioncaracter; 
settextstyle (fuente, dirección, dimensioncaracter); 


Carga las características vigentes del texto gráfico de acuerdo con los valores 
de fuente, direccion y dimensioncaracter seleccionados. 

Normalmente, en un momento determinado, la memoria guarda una única 
fuente. Sin embargo, siempre es posible enlazar varias fuentes con la ayuda 
de la utilidad BGIOBJ. Excepto DEFAULT_FONT (que está incorporado al 
sistema gráfico). los archivos .CHR de las fuentes seleccionadas deben encon- 
trarse en el directorio o subdirectorio indicado por initgraph como caminocon- 
trolador o bien enlazados y dados de alta por medio de registerbgifont. 
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La dirección del texto gráfico es horizontal por omisión pero puede poner- 
se vertical (girada 90% en sentido contrario a las agujas del reloj). 

Para las fuentes de proyección de bits: dimensioncaracter debe ser 0..10. 
El cero y el uno muestran rectángulos de 8x8 pixels; el dos, un rectángulo de 
16x16 pixels, etc.... hasta 10 veces el tamaño normal. 

Para las fuentes segmentadas: dimensioncaracter = 0 amplía la fuente seg- 
mentada en el factor por omisión (factor 4) o en los factores definidos por el 
usuario y cargados a través de setusercharsize. Se admite el 10 como el valor 
de máxima ampliación. 

Si se pasan valores incorrectos a settextjustify, graphresult devuelve el 
valor -11 (error general) y los valores de texto vigentes permanecerán inamo- 
vibles. 


setusercharsize 


int multx, divx, multy, divy; 
setusercharsize(multx, divx, multy, divy); 


Permite la ampliación de los caracteres definidos por el usuario en las fuentes 
segmentadas. Estos valores sólo estarán activos si se llama a settextstyle para 
poner dimensioncaracter = 0. El valor de la anchura a escala se define como 
multx/divx; el valor de la altura a escala se define como multy/divy. 


setviewport 


int izquierda, arriba, derecha, abajo, 
indicasolapamiento; 
setviewport (izquierda, arriba, derecha, abajo, 
indicasolapamiento); 


Las coordenadas de la ventana gráfica son coordenadas absolutas de pantalla. 
Si indicasolapamiento es distinto de cero, todas las líneas sufrirán truncación 
en los bordes de la ventana gráfica; en caso contrario, el trazado de las líneas 
se extenderá por toda la pantalla. 


setvisualpage 


int numpagina; 
setvisualpage (numpagina); 


Selecciona la página gráfica numpagiína como página visual activa y no la 
propia página gráfica activa (consulte setactivepage). Sólo las tarjetas gráficas 
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EGA, VGA y HERCULES admiten en la actualidad páginas gráficas (o de 
texto) múltiples. Es útil para la animación. 


setwritemode 


int modoescritura; 
setwritemode (modoescritura); 


ión setwritemode carga el modo de escritura de las líneas en la panta- 
Se definen dos constantes para modoescritura: COPY_PUT=0 
(por omisión) y XOR_PUT=1. 

Nota: En la actualidad, setwritemode sólo funciona con line, linerel, lineto, 
rectangle y drawpoly. 


textheight 


int alturacaracter = textheight ("H"); 


Devuelve la altura de una cadena en pixels, haciendo uso del tamaño de la 
fuente vigente, de los factores de escala y de la dirección del texto. Esta altura 
puede ser la de un único carácter o la de una cadena entera, 


textwidth 


int anchuracaracter = textwidth ("H"); 


Devuelve la anchura de una cadena en pixels, haciendo uso del tamaño de la 
fuente vigente, de los factores de escala y de la dirección del texto. Esta 
anchura puede ser la de un caracter elemental o la de una cadena entera. 


Apéndice B 


Funciones del ratón 


y de 


la tortuga 


Definiciones de las estructuras del ratón 


Rresultado 


struct ( 


Restado 


struct ( 


Rmovimiento 


struct ( 


) 


int presente, /* VERDAD si el ratón está dá 

we presente */ 

botones; /* número de botones del ratón */ 
Rresultado; 

int estado_boton, /* bits 0-2 activos si el ed 

/* botón á pulsado e 

contador_boton, /* n* de veces que el botón */ 

EN ha sido pulsado EL 

ejex, ejey ; /* posición del cursor del ratón */ 

Restado; 

int contador_x, / olazamiento horizontal neto */ 

contador_y; / zamiento vertical neto */ 
Rmovimiento; 
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evento_raton 


struct í unsigned flag, /* registro del suceso del ratón 
boton, /* botón(es) pulsado(s) + 
ejex, ejey; /* posición del cursor *7 

) evento_raton; 


g_cursor 


struct ( unsigned int 
MascaraPantalla[16], /* Desc or de la */ 
/* máscara de la pantalla */ 
MascaraCursor[16]; /* Descriptor de la ed 
/* máscara del cursor */ 
xXCOr, ycor; /* Punto de mira del cursor */ 
) g_cursor; 


Funciones del ratón 


Riniciar 


Rresultado m; 
m = Riniciar(); 


Restituye el estado por omisión del ratón, devuelve un puntero a la estructura 
Rresultado con información sobre la instalación, presencia y número de boto- 
nes de éste. Debe llamarse siempre durante la iniciación. 


Rmuestra 
Rmuestra( ON ); ¿* Botivo */ 
Rmuestra( OFF ); JATRASEINO + 


Activa (visible) o desactiva (invisible) el cursor del ratón. El estado del cursor 
no afecta al arrastre del ratón, sólo a la visibilidad de la imagen en la pantalla. 
La imagen del cursor debería ocultarse durante las operaciones de actualiza- 
ción de la pantalla. 


*Rpos 


m_status m; 
m = Rpos(); 
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LLama a la función 3 del ratón, devolviendo el puntero a la estructura Restado 
con la posición vigente del cursor del ratón y el estado del botón. 


Rsitua 


int ejex, ejey; 
Rsitua (ejex, ejey); 


Llama a la función 4 del ratón, desplazando el cursor de éste a la posición 
definida. 


*Rpulsado 


Restado m; 
m = Rpulsado(boton); 


Llama a la función 5 del ratón para recibir información sobre el botón espe- 
ado. Devuelve un puntero a la estructura Restado con información sobre 
el estado actual del botón especificado (pulsado o suelto), el número de veces 
que se ha pulsado desde la última llamada y la posición del cursor la última 
vez que se pulsó aquél. Reinicia la información sobre el contador y la posi- 
ción. Botonlzq (0) es el izquierdo, BotonDer (1) es el derecho y BotonMed 
(2) es el central (sólo tres botones por ratón). 


*Rliberado 


Restado m; 
m = Rliberado(boton); 


Llama a la función 6 del ratón para recibir información sobre el botón espe- 
cificado. Devuelve un puntero a la estructura Restado con información sobre 
el estado actual del botón especificado (pulsado o suelto), el número de veces 
que se ha pulsado desde la última llamada y la posición del cursor la última 
vez que se pulsó aquél. Botonlzq (0) es el izquierdo, BotonDer (1) es el 
derecho y BotonMed (2) es el central (tres botones por ratón). 


Rlimitex 


int minx, maxx; 
Rlimitex(minx, maxx); 


Utiliza la función 7 del ratón para cargar las fronteras horizontales de éste, 
limitando su movimiento sobre la pantalla. Si el cursor del ratón estuviera 
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fuera de este rango, se desplazaría hacia el interior de la frontera especificada. 
Si minx fuera mayor que maxx, los valores se intercambiarían. 


Rlimitey 


int miny, maxy; 
Rlimitey (miny, maxy); 


Hace uso de la función 8 del ratón para delimitar las fronteras verticales de 
éste, limitando su desplazamiento sobre la pantalla. Si el cursor del ratón 
estuviera fuera de este rango, se desplazaría hacia el interior de los límites 
impuestos. Si miny fuera mayor que maxy, los valores se intercambiarían. 


*Rcambio 


Rmovimiento m; 
m = Reambio(); 


Hace uso de la función 11 del ratón; devuelve un puntero a la estructura 
Rmovimiento con el movimiento neto de éste desde la última llamada a esta 
función. 


Rrelacion_paso 


int pasox, pasoy; 
Rrelacion_paso (pasox, pasoy); 


Hace uso de la función 15 del ratón para poner el desplazamiento de éste en 
la escala de pixels (cursor). Los valores por omisión son 16 en vertical y 8 en 
horizontal. 


Rvelocidad 


int velocidad 
Rvelocidad (velocidad); 


Llama a la función 19 del ratón; activa la velocidad umbral (en mickies/se- 
gundo) para el desplazamiento acelerado del cursor. Un valor normal viene a 
ser 300 mickies/segundo (012Ch); el valor máximo es de 32.767 mickies/se- 
gundo (7FEFh). 
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Pon_Cursor (ratón de texto) 


unsigned comienzo linea, parada_linea; 
Pon_Cursor (HARDWARE, comienzo_linea, 
parada _linea); 


Utiliza la función 10 para cargar el tipo del cursor de texto (SOFTWARE=0, 
HARDWARE=1). Para el cursor lógico, las máscaras del cursor y de la pan- 
talla son comienzo_linea y parada_linea. Para el cursor físico, los valores 
comienzo_linea y parada_linea indican el comienzo/fin de la línea de pixels, 
esto es, la forma del cursor. 

Pon_Cursor (ratón gráfico) 


gcursor EsteCursor; 
Pon_Cursor (EsteCursor); 
Pon_Cursor (GUANTE) ; 


Selecciona el cursor del ratón gráfico; llama al procedimiento privado 
Pon_Cursor con la sintaxis de los parámetros extendidos. 


Funciones de la tortuga 


retrocede 


int distancia; 
retrocede (distancia); 


Desplaza la tortuga en la distancia especificada, en pasos de un pixel. El 
desplazamiento se produce en el sentido opuesto al vigente; si el lapicero está 
activo, dibujará una línea con el color vigente. 

crea_tortuga 


crea_tortuga(); 


Crea la imagen del cursor de la tortuga. Normalmente sólo es llamada por la 
función inicia_tortuga. 


borra_pantalla_tortuga 


borra _pantalla tortuga(); 
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Borra la pantalla de la tortuga y restituye el cursor de ésta en su posición 
origen (home). 


corrige_direccion 
int angulo; 


corrige direccion (S£angulo); 


Restringe el ángulo al rango de grados 0..360. 


dibujacadena 


char cadena[] = cadena-de-instrucción; 
int escala; 
dibujacadena(escala, cadena); 


Descifra la cadena de instrucción para dibujar un carácter, una figura o un 
logotipo; para ello, hace uso de los gráficos de la tortuga. La escala actúa 
como un factor de multiplicación que decide el tamaño de la figura que se 
dibuja. 

Si la cadena de instrucción superase los 150 caracteres, la figura quedaría 
truncada. 


avanza 


int distancia; 
avanza(distancia); 


Provoca el desplazamiento de la tortuga en la distancia de referencia, en pasos 
de un pixel. El desplazamiento se realiza en la dirección vigente: si el lapicero 
está activo, dibujará una línea con el color vigente. 


rumbo 


int angulo; 
angulo = rumbo(); 


Devuelve la orientación de la tortuga. 


esconde_tortuga 


esconde _tortuga(); 


Si el cursor de la tortuga está visible, se ocultará. 
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centro 


centro(); 
Restituye el cursor de la tortuga sobre su posición inicial (normalmente, el 
centro de la ventana de la tortuga). 

inicia_tortuga 


inicia_tortuga(); 


Llama a crea_tortuga para generar el cursor de la tortuga, lee el factor de 
aspecto visual y el tamaño de la pantalla, establece la ventana inicial de la 
tortuga y el origen (posición home), y carga los valores por omisión de la 
tortuga y sus indicadores. Entre las acciones por omisión se incluyen: la carga 
del valor máximo del color (para el modo visual vigente) en el lapicero; el 
cursor de la tortuga queda visible, el retardo de la tortuga se hace cero (tor- 
tuga rápida); no enlazamiento de la pantalla; el lapicero se activa; la orienta- 
ción de la tortuga apunta a NORTE. 


no_enlazar 
no_enlazar(); 
Desactiva el enlazado de la pantalla de la tortuga. Permite el desplazamiento 
de la tortuga fuera de su ventana. Sin embargo, sólo dibuja en el interior de 
este área, 

baja_lapiz 


baja_lapiz(); 


Activa el modo de escritura en el lapicero de la tortuga. Durante su desplaza- 
miento, la tortuga dibuja una línea con el color del lapicero. 


sube_lapiz 
sube_lapiz(); 


Levanta el lapicero de la tortuga, permitiendo su desplazamiento sin dibujar 
el rastro. 
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seno 
double seno angulo; 


int angulo; 
seno_angulo = seno (angulo); 


Devuelve el seno de un ángulo en grados. 


coseno 


double coseno angulo; 
int angulo; 
coseno_angulo = coseno(angulo); 


Devuelve el coseno de un ángulo en grados. 


pon_rumbo 


int grados; 
pon_rumbo (grados); 


Carga la orientación de la tortuga en grados. Los ángulos quedan normaliza- 
dos en el rango de grados 0..360. 
pon_color_lapiz 


int color; 
pon_color_lapiz(color); 


Carga el color vigente con el que dibuja la tortuga. Se comprueba si el color 
está en el rango válido. Para borrar puede utilizarse el valor 0, 


pon_posicion 


int ejex, ejey; 
pon _posicion(ejex, ejey); 


Pone el cursor de la tortuga en la posición de referencia. Las coordenadas son 
relativas a la posición inicial (home) de la tortuga (normalmente, el centro de 
la ventana de ésta). 
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muestra_tortuga 


muestra_tortuga(); 


Si el cursor de la tortuga no está visible, la función lo restituye en la posición 
vigente. 


paso_tortuga 


int pasox, pasoy; 
paso_tortuga (pasox, pasoy); 


Desplaza el cursor de la tortuga, dejando un rastro si el lapicero está activo y 
la tortuga está dentro de su ventana. Si el enlazamiento de la ventana está 
activo, la función ajusta la posición de aquél en el límite de ésta. 


gira_izquierda 


int grados; 
gira _izquierda(grados); 


Modifica la orientación de la tortuga hacia la izquierda en el número de 
grados de referencia. El ángulo que resulte estará en el rango de grados 
0..360. Si se proporciona un argumento negativo, la orientación de la tortuga 
girará hacia la derecha, 


gira_derecha 


int grados; 
gira_derecha (grados); 


Modifica la orientación de la tortuga hacia la derecha en el número de grados 
de referencia. El ángulo que resulte estará en el rango de grados 0..360. Si se 
proporciona un argumento negativo, la orientación de la tortuga girará hacia 
la izquierda. 


ventana_tortuga 


int centrox, centroy; 
int ancho, alto; 
ventana_tortuga(centrox, centroy, ancho, alto); 


Define como centro de la ventana de la tortuga el punto definido por las 
componentes absolutas de pantalla centrox, centroy. La anchura de la ventana 
seguirá siendo de ancho pixels, y la altura de alto pixels, a no ser que los 
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márgenes excedan de los límites de la pantalla física. La imagen del cursor 
del ratón necesita dos márgenes de 3 pixels, uno a la izquierda y otro en la 
parte superior. El cursor de la tortuga se pondrá en la posición origen (posi- 
ción centro). 


posicion_tortuga 
if (posicion _tortuga()) ... 


Devuelve VERDAD (1) si el cursor de la tortuga cae dentro de la ventana de 
ésta, 


retardo_tortuga 
int tiempo; 
retardo_tortuga (tiempo); 


Define la velocidad de la tortuga, haciendo uso del tiempo de retardo ejecu- 
tado entre pasos de tortuga. 


enlazar 


enlazar() 


Desactiva el enlace de la tortuga, dando pie al cursor para desplazarse fuera 
de los límites de la ventana de ésta. 


xCor 
int ejex; 


ejex = xcor(); 


Devuelve la posición, según el eje x, del cursor de la tortuga (relativa al 
origen -posición centro-). 

ycor 
int ejey; 


ejey = ycor(); 


Devuelve la posición, según el eje y, del cursor de la tortuga (relativa al 
origen -posición centro-). 


Apéndice C 


La herramienta de 
desarrollo BGI 


Creación de controladores para el 
Interfaz Gráfico de Borland 


La herramienta de desarrollo de controladores de dispositivos BGI es de libre 
disposición para todos los usuarios de Turbo Pascal, Turbo C++ y Turbo 
Prolog, y puede transferirse en los foros de lenguajes de Borland International 
a través de la red CompuServe. La he ¡enta de desarrollo de controladores 
BGI incluye una utilidad de conversión de .BIN a .BGI (DFONT.EXE, 
DFONT.C y FONT.H) y un controlador para depurar. 

También está disponible, en Compuserve, el editor de fuentes Turbo (con- 
sulte el capítulo 15) con nueve fuentes de caracteres gráficos: EURO.CHR, 
GOTH.CHR, LCOM.CHR, LITT.CHR, SANS.CHR, SCRI.CHR, SIMP.CHR, 
TRIP.CHR y TSCR.CHR; también hay un nuevo controlador .BGI de 256 
colores VGA (consulte el apéndice E). Además habrá nuevas revisiones y 
actualizaciones en el forum Compuserve de Borland. 


La herramienta de desarrollo de controladores BGI 
Copyright (C) 1988 Borland International 
Revisión 1 
15 de Septiembre de 1988 
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Introducción 


El Interfaz Gráfico de Borland (BGI) es un paquete lógico rápido, compacto 
e independiente del dispositivo, orientado al desarrollo gráfico en el entorno 
de los productos Turbo Pascal, Turbo C++ y Turbo Prolog. La independencia 
del dispositivo se consigue gracias a una serie de controladores que pueden 
ser cargados y que son específicos de los dispositivos; estos controladores 
pueden ser llamados desde un núcleo común. 

Este documento describe la funcionalidad básica BGI, así como los pasos 
necesarios para la creación de controladores nuevos. Con este documento se 
adjuntan distintos archivos con código de muestra (consulte la Tabla C-1) y 
otras informaciones. 


Tabla C-1 Archivos con código de muestra 


Nombre 

del archivo Descripción del archivo 

BH.C Fuente del programa de construcción del cabecero del cargador BGL. 

BH.EXE Programa de construcción del cabecero del cargador BGI. 

DEVICE.INC Archivo de definiciones de estructuras y macros. 

DEBVECT.ASM Tabla de vectores del controlador de muestra (DEBUG). 

DEBUG.C Módulo principal del controlador de muestra, 

MAKEFILE Archivo de construcción. 

BUILD.BAT Archivo por lotes para los detractores de MAKE. 

TEST.C Programa C que muestra cómo catalogar y cargar un controlador 
de dispositivos nuevo, 

DFONT.EXE Utilidad de conversión de .BIN a .BGL. 

DFONT.C Código fuente C para la utilidad de conversión. 

FONT.H Archivo de cabecera utilizado por DFONT, 


Arquitectura del entorno de ejecución BGI 


Los programas producidos por los lenguajes de Borland crean gráficos por 
medio de dos entidades que actúan coordinadamente: el núcleo genérico BGI 
y un controlador específico del dispositivo. Clásicamente, cualquier aplica- 
ción creada vía un compilador de Borland incluye varios controladores de 
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dispositivos en el disco de distribución (con extensión .BGI) para que el 
programa pueda ejecutarse con distintos tipos de pantallas e impresoras. Las 
necesidades gráficas (por ejemplo, la representación de líneas y barras, etc.) 
son enviadas desde la aplicación al núcleo de BGÍ; a su vez, éste solicita sus 
servicios al controlador de los dispositivos para la manipulación de estos. 

Un controlador de dispositivos BGÍ es una imagen binaria; esto es, una 
secuencia de octetos carente de símbolos u otra información dirigida al enla- 
zador. El controlador empieza con un pequeño cabecero, seguido de una tabla 
de vectores con los puntos de entrada a las funciones internas. El balance del 
controlador comprende el código y los datos necesarios para manipular los 
dispositivos físicos. 

Todas las referencias a los datos y al código existentes en el controlador 
deben ser "próximas" (modelo pequeño de memoria donde sólo hay desplaza- 
miento); el controlador en conjunto, tanto el código como las datos, debe 
ajustarse a los 64K octetos. 

En la actualidad, el controlador puede ser cargado en el límite de un blo- 
que. El núcleo de BGI utiliza una convención de llamada basada en registros 
para comunicarse con el controlador de dispositivos (descrito en detalle a 
continuación). 


Modelo gráfico BGI 


Al considerar las funciones que se listan a continuación, recuerde que BGI 
realiza la mayor parte de las operaciones de dibujo con los valores implícitos 
del color de dibujo (COLOR), color de relleno (FILLCOLOR) y patrón de 
relleno (FILLPATTERN). Por ejemplo, la llamada PIESLICE no acepta nin- 
guna información de patrón o color; en cambio utiliza el valor de COLOR, 
cargado previamente, para trazar el contorno de una porción, y los valores de 
FILLCOLOR y FILLPATTERN, previamente cargados, para definir el inte- 
rior de ésta. Por motivos de eficiencia, muchas de las operaciones tienen lugar 
en la posición indicada por el puntero vigente (PV). Por ejemplo, la rutina 
LINE admite un único par coordenado (x,y), utiliza PV como punto de co- 
mienzo de la escritura de la línea y como punto final, el par coordenado 
recibido, Muchas funciones modifican PV (LINE, para nombrar una), por lo 
que la función MOVE puede utilizarse para ajustar PV de forma explícita. El 
sistema de coordenadas BGI ubica el origen (pixel 0,0) en la esquina superior 
izquierda de la pantalla, 


Sección de cabecera 


La sección de cabecera del dispositivo (que debe ir al principio del controla- 
dor) se crea con la macro BGI definida en el archivo DEVICE.INC. La macro 
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BGI toma como argumento el nombre del controlador que va a crearse. Por 
ejemplo, un controlador llamado DEBUG debería empezar como sigue: 


CSEG SEGMENT PARA PUBLIC 'CODE' ; puede utilizarse cualquier 
nombre de segmento 
ASSUME DS:CSEG, CS:CSEG ; cs=ds 


CODESEG 
INCLUDE DEVICE.INC ; incluir el archivo device.inc 
BGI DEBUG ; declarar la sección de cabecera 


del dispositivo 


La sección de cabecera del dispositivo declara un punto de entrada muy 
especial conocido como EMULATE, Si la acción del vector de un controlador 
no fuera aceptada por el hardware de un dispositivo, entonces el vector debe- 
ría contener la entrada EMULATE. De esta forma se produciría un parche en 
tiempo de carga que definiría un salto a la rutina de emulación del núcleo. 
Estas rutinas emulán la acción del vector descomponiendo la petición en pri- 
mitivas más sencillas. Por ejemplo, si el hardware tiene la funcionalidad ne- 
cesaria como para dibujar polígonos, el vector del polígono contendrá la di- 
rección de la rutina que envía los datos del polígono al hardware, debiendo 
escribirse como se indica a continuación: 


dw desplazamiento  POLYGON ; Vector a la rutina Polygon. 


Si, como sucede a menudo, el soporte físico no aporta funcionalidad para 
la representación de polígonos, el vector deberá contener el vector EMULATE: 


dw EMULATE ; Las funciones de Polygon deben 
emularse. 


El núcleo admite la emulación de los vectores que se indican en la 
Tabla C-2, 


Tablas de Estado de los Controladores 


BGI exige que cada controlador contenga una Tabla de Estado (TEC) que 
guarde las caracterís sicas del dispositivo direccionado por este contro- 
lador. Como ejemplo, a continuación se muestra la tabla TEC de una pantalla 


CGA: 
STATUS STRUCT 
STAT DB 0 ; Estado del Dispositivo Vigente 


(0= no hay errores). 
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Tabla C-2 Posibles emulaciones de vectores 


Vector 
POLYGON 
BARFILL 
PATBAR 
ARC 
PIESLICE 
FILLED ELLIPSE 
SYMBOLS 
FILLSTYLE 
TSTYLE 
TEXT 
TEXTSIZ 
DEVTYP DB 0 
XRES DW 639 
YRES Dw 199 
XEFRES Dw 639 
YEFRES Dw 199 
XINCH DW 9000 
YINCH DWw 7000 
ASPEC DW 4500 
DB 8h 
DB 8h 
DB 90h 
DB 90h 
STATUS ENDS 


Posibilidad 

Representación de polígonos. 
Relleno de rectángulos. 

Patrón para el relleno de rectángulos. 
Representación de arcos elípticos. 
Secciones elípticas de tartas. 
Elipses rellenas. 

Símbolos de marcado de líneas. 
Estilos de relleno de sólidos. 
Estilos de escritura de textos. 
Representación de texto hardware, 
Escala del texto hardware, 


; Identificador del Tipo de Dispositivo 
(debe ser 0). 

; Resolución Total del Dispositivo en la 
Dirección X. 


; Resolución Total del Dispositivo en la 
Dirección Y. 

; Resolución X Efectiva del dispositivo. 

; Resolución Y Efectiva del dispositivo. 

; Tamaño X del Dispositivo en 
Pulgadas * 1000. 

; Tamaño Y del Dispositivo en 
Pulgadas * 1000. 

; Factor de Aspecto = 
(dimx/dimy) * 10000. 


; por compatibilidad, utilice estos valores. 


El interfaz BGI incorpora un sistema de informes de error al núcleo BGI 
y al código de más alto nivel desarrollado con la ayuda de los paquetes de 
lenguajes de Borland. Esto se lleva a cabo con la ayuda del campo STAT de 
la Tabla de Estados del Controlador. Si tuviera lugar algún tipo de error 
durante la instalación del dispositivo (INSTALL), sería el propio código del 
controlador el que debiera rellenar este campo. 
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El siguiente campo de la tabla de estados, DEVTYP, describe la clase de 
dispositivo manipulado por el controlador; para las pantallas, este valor siem- 
pre es 0. 

Los siguientes cuatro campos, XRES, YRES, XEFRES y YEFRES guardan 
el número de pixels que este dispositivo pone a disposición del sistema BGI 
(según las direcciones vertical y horizontal), menos uno. Para las pantallas, 
XRES=XEFRES e YRES=YEFRES, Los campos XINCH y YINCH, guardan, 
multiplicados por 1000, el número de pulgadas (según las direcciones hori- 
zontal y vertical) en que se proyectan los pixels del dispositivo. Estos campos, 
junto a XRES e YRES, permiten el cálculo de la resolución del dispositivo 
(PPP, o puntos por pulgada). 


Resolución horizontal (PPP) = (XRES + 1) / (XINCH / 1000) 
Resolución vertical (PPP) = (YRES + 1) / (YINCH / 1000) 


El campo de aspecto visual ASPEC consta de un par de multiplicadores/di- 
visores (el divisor siempre es 10.000) que se aplican a los valores de las 
componentes del eje Y para crear imágenes ajustadas por el factor de aspecto 
(por ejemplo, círculos redondos). Así, un valor 4.500 del campo ASPEC in- 
dicaría que la aplicación tendría que transformar las componentes del eje Y 
en el factor 4.500/10.000 a la hora de dibujar círculos sobre el dispositivo, si 
es que éste esperase que fueran redondos. Otros tipos de variaciones sobre la 
pantalla pudieran necesitar nuevos ajustes en la aplicación. 


Tabla de vectores de los controladores de dispositivos 


Las tablas de vectores abren las puertas de acceso a las rutinas de un contro- 
lador. Esta tabla se encuentra al principio del controlador y contiene los des- 
plazamientos de 16 bits a subrutinas y a las tablas de configuración. El for- 
mato de una tabla de vectores se muestra a continuación. 


TABLA DE VECTORES 


DW INSTALL ; Instalación e iniciación del controlador. 

Dw INIT ; Inicio del dispositivo para la salida. 

Dw CLEAR ; Borrado del dispositivo gráfico; refresco de 
la pantalla. 

Dw POST ; Abandono del modo gráfico, descarga del 
trazador gráfico, etc. 

DW MOVE ; Desplazamiento del puntero vigente (PV) a 


la posición (X,Y). 
Dw DRAW ; Trazado de una línea desde (PV) hasta (X,Y). 
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Dw VECT ; Trazado de una línea desde (X0,YO) 
hasta (X1,Y1). 

DW POLY ; Definición de un polígono. 

Dw BAR ; Rectángulo relleno desde (PV) hasta (X,Y). 

Dw PATBAR ; Rectángulo con patrón desde (X,Y) 
hasta (X1,Y1). 

DW ARCO ; Define ARC. 

Dw PIESLICE ; Define una porción elíptica de tarta. 

DW FILLED_ELLIPSE ; Dibuja una elipse rellena. 

DW PALETTE ¡; Carga un elemento de paleta. 

Dw ALLPALETTE ; Carga la paleta completa. 

Dw COLOR ; Activa el color de dibujo/fondo vigente. 

Dw FILLSTYLE ; Control y estilo de relleno. 

Dw LINESTYLE ; Control del estilo de trazado de líneas. 

DW TEXTSTYLE ¡ Control de la fuente hardware. 

DW TEXT ; Texto de dibujo hardware en (PV). 

Dw TEXTSIZ ; Petición del tamaño de la fuente hardware. 

Dw FLOODFILL ; Relleno de una región delimitada. 

DW GETPIXEL ¡ Lectura de un pixel en (X,Y). 

Dw PUTPIXEL ; Escritura de un pixel en (X,Y). 

Dw BITMAPUTIL ; Función de petición del tamaño de un mapa 
de bits. 

DW SAVEBITMAP ; BITBLT desde la pantalla a la memoria del 
sistema, 

DW RESTOREBITMAP ; BITBLT desde la memoria del sistema a 
la pantalla, 

DW SETCLIP ; Definición de un rectángulo superpuesto. 

Dw COLOR_QUERY ; Petición de información de la tabla de colores. 

DW RESERVED ; Reservado para su utilización por Borland (0). 

Dw SYMBOL ; Dibujo de un símbolo gráfico. 


: se reservan 32 nuevos vectores para su futura utilización por Borland. 


DW RESERVED ; Reservado para su uso por Borland (1). 
DW RESERVED ; Reservado para su uso por Borland (2). 
DW RESERVED ; Reservado para su uso por Borland (3). 
DW RESERVED ; Reservado para su uso por Borland (30). 
Dw RESERVED ; Reservado para su uso por Borland (31). 


DW RESERVED ; Reservado para su uso por Borland (32). 
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; Cualesquiera otros vectores especificados a continuación de este bloque 
; pueden ser utilizados por cualquier desarrollador independiente de 
; controladores, a su gusto, 


Descripciones de vectores 


La información que viene a continuación describe la entrada, la salida y la 
funcionalidad de cada una de las funciones a las que se ha accedido a través 
de la tabla de vectores de dispositivos. 


Dw desplazamiento INSTALL ; instalación del controlador de 
dispositivos. 


El núcleo llama al vector INSTALL para preparar el controlador de dispo- 
sitivos para su utilización. En AL se pasa un código de función. Se definen 
los siguientes códigos de función: 


Instalar dispositivo 


> Instalar dispositivo: AL = 00 
Entrada: CL = Número de Modo para el dispositivo. 
CH = Autodetección del número máximo de 
dispositivos. 
Devolución: ES:BX > Tabla de estado del dispositivo 


(consulte la estructura STATUS, 
definida anteriormente). 


La función Instalar Dispositivo permite informar al controlador sobre los pa- 
rámetros de operación que van a utilizarse. El dispositivo no deberá estar en 
modo gráfico (consulte INIT). En la entrada, CL contiene el modo de funcio- 
namiento del dispositivo, mientras que CH contiene el número máximo de 
dispositivos que vayan a utilizarse. Un ejemplo de la utilización del número 
máximo de dispositivos es un tablero gráfico con cuatro modos, de los cuales. 
los dos últimos necesitan un hardware extendido. La rutina Auto-Detect se 
encargaría de comprobar la existencia de un hardware extendido y, en caso de 
no haberlo, debería especificar el número máximo de dispositivos para limitar 
la entrada de modos que necesitasen más hardware. 


El valor devuelto por la función Instalar Dispositivo es un puntero a la 
tabla de estado del dispositivo (descrita anteriormente). 
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Solicitud de los modos 
>, Solicitud de los modos: AL =001h 


Entrada: Ninguna. 
Devolución: CX Número de modos admitidos por este 
dispositivo. 


La función Solicitud de Modos se utiliza para pedir información sobre el 
número máximo de modos admitidos por este controlador de dispositivos. 
Este valor se ve afectado por el parámetro Autodetección del número máximo 
de dispositivos, descrito en la función Instalar Dispositivo. 


Nombres de modos 


= Nombres de modos: AL = 002h 
Entrada: cx Número de modos para la pregunta. 
Devolución: ES:BX —>Una cadena Pascal con el nombre. 


La función Nombres de Modos se utiliza para pedir el formato ASCIL del 
número de modos presentes en CX. El valor devuelto en ES:BX apunta a una 
cadena Pascal con el modo dado. 

Una cadena Pascal, o _length_, es una cadena cuyo primer octeto de datos 
guarda el número de caracteres de ésta; a continuación vienen los propios 
datos de la cadena. Para facilitar el acceso a estas cadenas desde C, éstas 
deben ir seguidas del octeto cero binario, aunque éste no forme parte de la 
longitud de aquéllas. A continuación se muestra un ejemplo de este formato: 


NOMBRE: db  16/Modo 1280x1024',0 


INIT 
Dw desplazamiento —INIT ; inicia el dispositivo para la salida. 
Entrada: ES:BX =>, Tabla de Información sobre el 
Dispositivo. 
Devolución: Nada. 


Este vector se utiliza para cambiar un dispositivo ya instalado del modo texto 
al modo gráfico. Este vector debería iniciar no sólo cualquier paleta por omi- 
sión, sino también la información sobre el modo de dibujo que se pidiese. El 
dato de entrada a este vector es la tabla de información del dispositivo (TIE). 
El formato de la tabla TIF se muestra a continuación; contiene el color del 
fondo y una marca de iniciación. Si el dispositivo necesitase más información 
en el momento de ejecutar INIT, estos valores podrían añadirse a la tabla TIF. 
Esta función no devuelve ningún valor. En caso de error durante el proceso 
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de iniciación del dispositivo, el campo STAT de la Tabla de Estado debería 
recibir el código de error adecuado. 


; definición de la Tabla de Información del Dispositivo. 


struct DIT 
DB 0 ; color de fondo para iniciar la pantalla. 
DB 0 ; marca de inicio; OA5h = no iniciar; 
; cualquier otra cosa = iniciar. 
DB 64 dupO  ;reservado para su futuro uso 
; por Borland. 
; aquí hay información nueva del usuario. 
DIT ends 
CLEAR 
DW desplazamiento CLEAR ; borrar el dispositivo gráfico. 
Entrada: Nada. 
Devolución: Nada. 


Este vector se utiliza para borrar el dispositivo gráfico y ponerlo en un estado 
conocido. En el caso de un dispositivo CRT, la pantalla se borra. En el caso 
de una impresora o de un trazador gráfico, se produce el avance del papel, 
mientras las plumas vuelven a su puesto. 


POST 
Dw desplazamiento POST ; abandono del modo gráfico. 
Entrada: Nada. 
Devolución: Nada. 


Esta rutina se utiliza para cerrar el sistema gráfico. En el caso de pantallas o 
impresoras gráficas, debería restituírse el modo texto. Para los trazadores 
gráficos, el papel debería descargarse y las plumas deberían volver a su 


puesto. 
MOVE 
DW desplazamiento MOVE  ; Desplazamiento del puntero 
vigente de trazado. 
Entrada: AX ; nueva componente x de PV. 


BX ; nueva componente y de PV, 
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Devolución: Nada. 


Carga el puntero vigente del controlador (PV) con la posición (AX,BX). Esta 
función se utiliza de forma previa a cualquiera de las rutinas TEXT, ARC, 
SYMBOL, DRAW, FLOODFILL, BAR o PIESLICE para cargar la posición 
en la que debe tener lugar el trazado. 


DRAW 
Dw desplazamiento DRAW ; dibuja una línea desde (PV) 
hasta (X.Y). 
Entrada: AX ; componente x final de la línea. 
BX ; componente y final de la línea. 
Devolución: Nada 


Dibuja una línea desde PV hasta (X,Y). Utiliza el valor vigente de LINES- 
TYLE, El puntero vigente (PV) se actualiza con la posición del punto final de 
la línea. 


VECT 
DW VECT ; dibuja una línea desde (X1,Y1) hasta (X2,Y2). 
Entrada: AX X1 ; componente X de comienzo de la línea. 
BX Y1 ; componente Y de comienzo de la línea. 
CX Xx2 ; componente X de final de la línea. 
DX Y2 ; componente Y de final de la línea. 
Devolución: Nada. 


Dibuja una línea desde (X1,Y1) hasta (X2,Y2). Para ello utiliza el valor vi- 
gente de LINESTYLE, Nota: PV no se ve modificado por este vector. 


POLY 
DW POLY ; definición de un polígono. 
Entrada: ES:BX > polígono. 
CX = número de puntos del polígono. 
AX =56 contorno del polígono en el color vigente. 
AX=7 contorno y relleno del polígono con los valores 
vigentes de color, color de relleno y patrón 
de relleno. 
AX =8 relleno del polígono con los valores vigentes 
de color de relleno y patrón de relleno. 
Devolución: Nada. 


El punto de entrada al polígono suele ser EMULATE. Los usuarios que dis- 
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pongan de un hardware capaz de aceptar los datos del polígono mediante una 
única operación deberían ponerse en contacto con el departamento de soporte 
técnico de Borland, para mayor información. 


BAR 


Dw BAR ; relleno y contorno del rectángulo (PV), (X,Y). 
Entrada: AX X -- lateral derecho del rectángulo. 
BX Y -- lateral izquierdo del rectángulo. 
cx 3D = anchura de una barra 3D 
(altura=0,75*anchura); O = no hay efecto 3D. 
DX Marca de la terminación superior de la barra 
3D; si CX<>0 y DX = 0, dibuja tapa superior. 
Devolución: Nada. 


Rellena y delimita una barra (rectángulo) con el valor vigente de COLOR, 
FILLCOLOR y FILLPATTERN. El punto vigente define la esquina superior 
izquierda del rectángulo, mientras que (X,Y) apunta abajo, a la derecha. Si 
CX es distinto de cero puede obtenerse un efecto tridimensional (orientado a 


los programas gráficos comerciales). DX se puede utilizar como marca para 
indicar si hay que dibujar la tapa superior de la barra. 
PATBAR 
DW PATBAR  ; relleno del rectángulo (X1,Y1), (X2,Y2). 
Entrada: AX X1 -- componente izquierda del rectángulo. 
BX Y1 -- componente superior del rectángulo, 
cx X2 -- componente derecha del rectángulo. 
DX Y2 -- componente inferior del rectángulo. 
Devolución: Nada. 


Rellena (pero no delimita) un rectángulo con los valores vigentes del patrón 
y del color de relleno. 


ARC 


DW ARC ; Dibuja un arco elíptico. 
Entrada: AX Angulo de comienzo del arco, en grados 
(0.360). 
BX Angulo de fin del arco, en grados (0..360). 
CX radio X del arco elíptico. 
DX radio Y del arco elíptico. 
Devolución: Nada. 


ARC dibuja un arco elíptico desde el ángulo de comienzo hasta el ángulo 
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final, utilizando (PV) como centro del arco. Para obtener arcos circulares, la 
aplicación (y no el controlador) deberá ajustar el radio Y de la forma: 
YRAD:=XRAD*(ASPEC/10000), donde ASPEC es el valor del aspecto alma- 
cenado en la tabla TED (tabla de estado del dispositivo). 


PIESLICE 
Dw PIESLICE ; Dibuja una porción elíptica de tarta. 
Entrada: AX Angulo de comienzo de la porción, en grados 
(0..360). 

BX Angulo final de la porción, en grados (0..360). 
CxX Radio X de la porción elíptica. 
DX Radio Y de la porción elíptica. 

Devolución: Nada. 


PIESLICE dibuja una porción elíptica rellena (o cuña) desde el ángulo de 
comienzo hasta el ángulo final, haciendo uso de (PV) como centro de la 
porción. Para proceder al relleno de la porción se hace uso de los valores 


vigentes FILLPATTERN y FILLCOLOR. El contorno se dibuja con el CO- 
LOR vigente. Para obtener porciones circulares de tarta, la aplicación (y no 


el controlador) deberá ajustar el radio Y de la forma: YRA! RAD*(AS- 
PEC/10000). donde ASPEC es el valor del aspecto almacenado en la tabla 
TED del controlador. 


FILLED_ELLIPSE 


DW FILLED_ELLIPSE ; Dibuja una elipse rellena en (PV). 
Entrada: AX Radio X de la elipse. 

BX Radio Y de la elipse. 
Devolución: Nada. 


Este vector se utiliza para dibujar una elipse rellena. Como centro de la elipse 
se asume el punto vigente (PV). El registro AX contiene el radio X de la 
elipse, mientras que el registro BX contiene su radio Y. 


PALETTE 
DW PALETTE ; Carga un elemento de color en la paleta. 
Entrada: AX Valor del índice y código de función para 
la carga. 
BX Valor del color que se cargará en la paleta. 
Devolución: Nada. 


El vector PALETTE se utiliza para almacenar elementos en la paleta. El 
registro AX contiene el código de la función de carga y el índice de la tabla 
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de colores donde debe realizarse la carga. Los dos bits de mayor peso de AX 
determinan la acción que debe llevarse a cabo. En la siguiente tabla se mues- 
tran las acciones. Si los bits de control valen 00, el índice de la tabla de 
colores resultante de (AX AND 03FFFh) se cargará con su valor en BX. Si 
los bits de control valen 10, el índice de la tabla de colores resultante (AX 
AND 03FFFH) se cargará con el valor RGB dado por (rojo=BX, verde=CX y 
azul=DX). Si los bits de control valen 11, la posición de la tabla de colores 
reservada para el fondo se cargará con el valor almacenado en BX. 


ALLPALETTE 
Dw ALLPALETTE ; Carga de la paleta completa. 
Entrada: ES:BX >array de elementos de paleta. 
Devolución; Nada. 


La rutina ALLPALETTE carga toda la paleta con una única llamada al con- 
trolador. El par de registros ES:BX apunta a la tabla de valores que deben 
cargarse. El número de elementos viene dado por los elementos de color de 
la tabla de estado del controlador. El color de fondo no se carga de forma 
explícita con esta orden. 


COLOR 
DW COLOR ¡ Carga el color de dibujo vigente. 
Entrada: AL Indice del color de dibujo vigente. 
AH Indice del color de relleno. 
Devolución: Nada. 


El vector COLOR se utiliza para identificar el color vigente del dibujo. El 
valor guardado en AL coincide con el índice de paleta donde se aloja el nuevo 
color vigente. El valor del registro AH es el índice del nuevo color de relleno. 
Todas las primitivas utilizarán el color vigente hasta que éste sea cambiado. 
El color de relleno se utiliza como color interno en las primitivas bar, poly- 
gon, pieslice y floodfill. 


FILLSTYLE 
Dw FILLSTYLE ; Activación del patrón de relleno. 
Entrada: AL Número primario del patrón de relleno. 
ES:BX Apunta a la máscara patrón definida por 
el usuario, si el número del patrón es 
OFFh. 


Devolución: Nada. 
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Carga el patrón de relleno. Este patrón de utiliza para rellenar cualquier región 
delimitada por un contorno (BAR, POLY y PIESLICE). 

En el caso de un patrón de relleno definido por el usuario, el par de 
registros ES:BX apuntará a 8 octetos de datos dispuestos en forma de patrón 
de 8x8 bits que, a la postre, servirá como patrón de relleno. 


LINESTYLE 
Dw LINESTYLE ; Carga el patrón de líneas. 
Entrada: AL Número del patrón. 
BX Patrón de líneas definido por el usuario. 
Cx Anchura de la línea que se dibuja. 
Devolución: Nada. 


Carga el estilo y la anchura de la línea vigente. La anchura de la línea viene 
a ser de uno o de tres pixels. 

Si el valor almacenado en AL es cuatro, entonces el usuario está definien- 
do un estilo de línea en el registro BX, Si el valor de AL no es cuatro, 
entonces el valor del registro BX se ignora. 


TEXTSTYLE 
DW TEXTSTYLE ; Control del estilo de texto hardware. 
Entrada: AL Número de la fuente de caracteres 
hardware. 
AH Orientación de la fuente hardware 
O=Normal, 1=90 grados, 2=Abajo. 
BX Tamaño deseado para el carácter X en 
unidades gráficas. 
cx Tamaño deseado para el carácter Y en 
unidades gráficas. 
Devolución: BX Tamaño más aproximado al del 
carácter X. 
CX Tamaño más aproximado al del 
carácter Y. 


El vector TEXTSTYLE se utiliza para definir los atributos de la fuente de 
caracteres hardware durante la salida. Los parámetros afectados son: la selec- 
ción de la fuente de caracteres hardware que deberá utilizarse, la orientación 
de la fuente en la salida y la altura y la anchura de salida de la fuente. Todo 
texto escrito posteriormente se escribirá con estos atributos. 

Si el tamaño que se desea no está admitido por el dispositivo presente, 
deberá utilizarse el tamaño más aproximado de los disponibles. El valor de- 
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vuelto por esta función coincide con las dimensiones (en pixels) de la fuente 
de caracteres en vigencia. 

Por ejemplo, si la fuente deseada tiene 8x10 pixels y el dispositivo admite 
fuentes de 8x8 y 16x16, la mejor aproximación la constituye el tamaño 8x8. 
La respuesta de la función será BX=8 y CX=8. 


TEXT 
Dw TEXT ; Salida del texto hardware en (PV). 
Entrada: ES:BX > Texto ASCII de la cadena. 
cx Longitud de la cadena (en caracteres). 
AL Punto de justificación horizontal 
O=Izquierda, 1=Centro, 2=Derecha. 
AH Punto de justificación vertical 
O=Abajo, 1=Centro, 2=Arriba. 
Devolución: BX Anchura de la cadena en unidades gráficas. 
CX Altura de la cadena en unidades gráficas. 


Esta función se utiliza para enviar texto hardware al dispositivo de salida. La 
presentación del texto comienza en (PV). La ubicación del texto con respecto 
al punto (PV) viene dada por los octetos de AX. El valor de AL es la marca 
de la justificación horizontal. Si es 0, (PV) define el extremo lateral izquierdo 
de la cadena de texto, y si es 1, (PV) define el centro de la cadena de texto. 
El valor de AH es la marca de justificación vertical. Si es 0, (PV) define el 
extremo inferior de la cadena de texto, si es 1, (PV) define el centro de la 
cadena de texto, y si es 2, (PV) define el extremo superior de la cadena. 


TEXTSIZ 
DW TEXTSIZ  ; Determina la altura y la anchura de las 
cadenas de texto en unidades gráficas. 
Entrada: ES:BX => Texto ASCII de la cadena. 
CX Longitud de la cadena (en caracteres). 
Devolución: BX Anchura de la cadena en unidades gráficas. 
Cx Altura de la cadena en unidades gráficas. 


Esta función se utiliza para determinar la longitud y la anchura físicas actuales 
de una cadena de texto. Los atributos vigentes para el texto (cargados con 
TEXTSTYLE) permiten llevar a cabo estos cálculos sobre una cadena, sin 
mostrarla. La aplicación también puede indicar la forma en que una cadena 
debe aj se, reduciendo o ampliando el tamaño de la fuente según las 
necesidades. No existe ninguna salida gráfica para este vector. En caso de 
error durante el cálculo de la longitud, el campo STAT del registro de estado 
del dispositivo debería recibir el código de error del dispositivo. 
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FLOODFILL 
Dw 


Entrada: 


Devolución: 


FLOODFILL ; Rellena una región delimitada por un 


contorno. 
AX Componente x del punto de referencia. 
BX Componente y del punto de referencia. 
CL Color de contorno para el relleno. 
Nada. (Los errores se devuelven en el campo STAT 


de la tabla de estado del dispositivo). 


Esta función permite rellenar una región en dispositivos de proyección de bits. 
La coordenada de entrada (X, Y) se utiliza como punto de referencia del relle- 
no. (PV) se convierte en el punto de referencia. El valor de FILLPATTERN 
se utiliza como patrón de relleno del área. 


GETPIXEL 


DW 
Entrada: 


Devolución: 


GETPIXEL ; Lectura de un pixel de la pantalla gráfica. 


AX Componente X del punto de referencia. 
BX Componente Y del punto de referencia. 
DL Indice del color del pixel leído en la pantalla. 


GETPIXEL lee el índice de color de un pixel capturado en la pantalla gráfica. 
El valor de este índice se devuelve en el registro DL. 


PUTPIXEL 
Dw 


Entrada: 


Devolución: 


PUTPIXEL ; Escribe un pixel de la pantalla gráfica. 


AX Componente X del punto de referencia. 

BX Componente Y del punto de referencia. 

DL Indice de color del pixel leído en la pantalla. 
Nada. 


PUTPIXEL escribe un pixel con el índice del color almacenado en el registro 


DL. 


BITMAPUTIL 
DW 


Entrada: 
Devolución: 


BITMAPUTIL ; Tabla de Funciones de Utilidad 
; para la proyección de bits. 

Nada. 

ES:BX >Tabla de utilidades BitMap. 


El vector BITMAPUTIL carga un puntero en ES:BX. Este puntero es la base 
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de una tabla que define puntos de entrada especiales para la manipulación de 
pixels. Estas funciones sólo son llamadas en la actualidad por las rutinas de 
emulación de elipses, contenidas en el núcleo BGI, Si el controlador no utiliza 
la emulación de elipses, este punto no tiene por qué desarrollarse; sin embargo 
ha de estar presente, porque hay hardwares que necesitan nuevas órdenes para 
entrar y salir del modo pixel, restando importancia a los vectores GETPIXEL 
y PUTPIXEL. Esta merma afecta a la velocidad de dibujo de las rutinas de 
emulación de la elipse. Estos puntos de entrada se suministran para que las 
rutinas puedan cambiar al modo pixel y permanecer en él durante el proceso 
de interpretación de la elipse. 
El formato de la tabla BITMAPUTIL es el siguiente: 


Dw desplazamiento  GOTOGRAPHIC 

; Cargar el modo pixel en el hardware gráfico. 
Dw desplazamiento  EXITGRAPHIC 

; Descargar el modo pixel del hardware gráfico. 
Dw desplazamiento  PUTPIXEL 

¡ Escribir un pixel en el hardware gráfico, 
Dw desplazamiento  GETPIXEL 

; Leer un pixel del hardware gráfico. 
Dw desplazamiento  GETPIXBYTE 

; Devolver una palabra con la profundidad del pixel. 
Dw desplazamiento SET_DRAW_PAGE 

; Seleccionar la página sobre la que se dibujarán 

las primitivas. 

Dw desplazamiento SET_VISUAL_PAGE 

¡ Activar la página que va a mostrarse. 
Dw desplazamiento  SET_WRITE_MODE 


; Control de dibujo de líneas XOR. 
Los parámetros de estas funciones son los siguientes: 
GOTOGRAPHIC ; Cargar el modo pixel en el hardware gráfico. 
Esta función se utiliza para cargar el modo especial Pixel Graphics. 
EXITGRAPHIC ; Descargar el modo pixel del hardware gráfico. 
Esta función se utiliza para abandonar el modo especial Pixel Graphics. 


PUTPIXEL ; Escribir un pixel en el hardware gráfico. 
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Esta función tiene el mismo formato que el elemento PUTPIXEL descrito 
anteriormente. 


GETPIXEL ; Leer un pixel del hardware gráfico. 


Esta función tiene el mismo formato que el elemento GETPIXEL descrito 
anteriormente. 


GETPIXBYTE ; Devolver una palabra con la profundidad del pixel. 


Esta función devuelve el número de bits por pixel (profundidad del color) 
del hardware gráfico en el registro AX, 


SET_DRAW_PAGE ; Seleccionar páginas alternativas de salida 
(si existen). 


Esta función toma del registro AL el número de páginas deseadas. Se 
rga de seleccionar las páginas gráficas alternativas que se utilizarán en la 
salida de las primitivas gráficas. 


SET_VISUAL_PAGE  ; Seleccionar las páginas alternativas visibles 
(si existen). 


Esta función toma del registro AL el número de páginas descadas. Se 
encarga de seleccionar las páginas gráficas alternativas que se visualizarán en 
la pantalla. 


SET_WRITE_MODE  ; Control del modo de trazado de líneas XOR. 


El modo XOR estará activo si el valor de AX es uno, e inactivo si el valor 
de AX es cero. 


SAVEBITMAP 
DW SAVEBITMAP ; Escritura desde la pantalla a la 
¡ memoria del sistema. 
Entrada: ES:BX > Escritura del área de memoria 
intermedia en la memoria del sistema. 
SI Componente X de comienzo del bloque de 
pantalla. 
DI Componente Y de comienzo del bloque de 
pantalla. 


Cx Componente X de fin del bloque de pantalla. 
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DX Componente Y de fin del bloque de pantalla. 
Devolución: Nada. 


La rutina SAVEBITMAP es una rutina de copia de bloques que se encarga de 
copiar los pixels de un cuadrado de pantalla definido por (SI,DD)-(CX,DX) 
sobre la memoria del sistema, 


RESTOREBITMAP 
Dw RESTOREBITMAP ; Escritura de la memoria del sistema 
sobre la pantalla. 
Entrada: ES:BX > Area intermedia de la memoria del sistema. 
El Componente X de comienzo del bloque de 
pantalla. 
DI Componente Y de comienzo del bloque de 
pantalla. 
CxX Componente X de fin del bloque de pantalla. 
DX Componente Y de fin del bloque de pantalla, 
AL Modo de escritura para la escritura del bloque. 
Devolución: Nada. 


El vector RESTOREBITMAP se utiliza para cargar pixels de pantalla desde 
la memoria del sistema. La rutina lee un flujo de octetos desde la memoria 
del sistema hacia el rectángulo definido por (SI,DD)-(CX,DX). 

EL valor del registro AL define el modo utilizado para la escritura. 


SETCLIP 
Dw SETCLIP  ; Define un rectángulo superpuesto. 
Entrada: AX Componente X superior izquierda del 
rectángulo superpuesto. 
BX Componente Y superior izquierda. 
CX Componente X inferior derecha. 
DX Componente Y inferior derecha. 
Devolución: Nada. 


El vector SETCLIP define una región de superposición rectangular sobre la 
pantalla. Los registros (AX,BX)-(CX,DX) definen la región superpuesta. 


COLOR_QUERY 


DW desplazamiento COLOR_QUERY ; Petición de 
información sobre los colores del dispositivo. 


El vector se utiliza para solicitar las posibilidades de color de un determinado 
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hardware. Para ello se pasa un código de función al controlador a través de 


AL. 
=> Tamaño de la tabla de colores AL = 000h. 
Entrada: Nada. 
Devolución: BX Tamaño de la tabla de consulta de los colores. 


CxX Número máximo permitido de colores. 


El TAMAÑO de la TABLA DE COLORES permite determinar el número 
máximo de colores admitidos por el hardware. El valor devuelto en el registro 
BX es el número de elementos de color de la tabla. El valor devuelto en el 
registro CX es el número más alto posible para un color. Normalmente, este 
valor coincide con el valor de BX menos uno; sin embargo pueden existir 


excepciones. 
> Tabla de colores por omisión AL = 001h. 
Entrada: Ninguna. 
Devolución: ES:BX > Tabla de colores por omisión del dispositivo. 


La función DEFAULT COLOR TABLE (tabla de colores por omisión) 
permite determinar los valores de la tabla de colores por omisión. El formato 
de esta tabla es un octeto con el número de elementos válidos, seguido del 
número dado de octetos de información sobre los colores. 


SYMBOL 
Dw SYMBOL  ; Dibuja un símbolo gráfico en (PV). 
Entrada: AL Número codificado del símbolo (vea lo siguiente 
Devolución: Nada. 


Este vector se utiliza para escribir un símbolo (o marcador, esto es, un indi- 
cador para representar puntos sobre un gráfico lineal) sobre el dispositivo de 
salida. El símbolo se escribe en (PV). 


Particularidades sobre la construcción de 
un controlador de dispositivos 


Este juego de herramientas de desarrollo incluye, aunque no sea algo habitual, 
el código fuente de un controlador de dispositivos BGI de muestra. Esto 
pretende ayudar a los técnicos de desarrollo a crear sus propios controladores. 
El controlador de demostración viene dado en dos archivos: DEBVECT.ASM 
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y DEBUG.C. ThisDebugdriver no dibuja gráficos, sino que envía mensajes 
descriptivos a la consola (vía la llamada 9 de DOS) cuando recibe órdenes. 
En lugar de repetir las órdenes, su controlador particular podría estructurarse 
de forma similar, accediendo, en este caso, a los puertos de control y a la 
memoria de la pantalla, para llevar a cabo cada función. 
Recetario 
La Compile o ensamble los archivos necesarios. 
2. Enlace los archivos, asegurándose de que la tabla de vectores del dis- 
positivo es el primero de los módulos enlazados. 
3, Ejecute EXE2BIN sobre el módulo .EXE resultante o sobre el archivo 
.COM, para generar un archivo .BIN. No debería ser necesaria ninguna 
reubicación, 
4, Ejecute el programa BH (suministrado con el juego de herramientas de 
desarrollo) sobre el archivo .BIN para dar origen al archivo .BGI. 

El controlador resultante ya está preparado para la prueba. Examine el 
archivo TEST.C como ejemplo de instalación, carga y llamada a un controla- 
dor de dispositivos de nueva creación. 

Ejemplos 


; Para llamar a cualquier función BG! desde el lenguaje ensamblador, 
; incluya la siguiente estructura y utilice la macro CALLBGI. 


CALLBGI MACRO P 


MOV S1,58.P ; ponga el código de 
; Operación en (SI). 
CALL CS:DWORD PTR BGI_ADD ; BGI_ADD apunta al 
controlador. 
ENDM 


; por ejemplo, para dibujar una línea desde (10,15) hasta (200,300): 


MOV AX,10 
MOV BX,15 
MOV CX,200 
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MOV DX,300 
CALLBGI VECT 


; para indexar un elemento de la tabla de estado incluya las estructuras 
; de la tabla de estado anterior y utilice la macro BGISTAT 


BGISTAT MACRO P ; Obtener ES:<SI> + BG! STATUS. 
LES SI,CS:DWORD PTR STABLE ; Obtener la localización del 
; estado sobre SI. 
ADD SI,$8P ; desplazamiento a la ubicación correcta. 
ENDM 


; por ejemplo, para obtener el factor de aspecto de un dispositivo: 


BGISTAT  ASPEC 
MOV AX:ES[SI] ; (AX) = Y/X*10000. 


Apéndice D 


Un controlador .BGI VGA 
de 256 colores 


Además de la utilidad del editor de fuentes y del paquete para clientes .BGÍ, 
Borland aporta un nuevo controlador VGA (VGA256.BGI) que admite la 
resolución VGA color completa con una paleta de 256 colores, empleando el 
modelo de color HST (Hue-Saturation-Intensity: Intensidad de Saturación del 
Color). 

Este paquete VGA puede conseguirse en el forum de lenguajes de Borland 
en Compuserve. El paquete consta de cinco programas: el controlador 
VGA256.BGI, la demostración de los matices de color HSI.EXE y HST.PAS, 
VGADEMO.EXE, y VGADEMO.PAS. 

VGADEMO es la demostración principal ( y funcionará en sistemas que 
no sean VGA, aunque no contemplen el rango completo de 256 colo: 
programa VGADEMO incluye demostraciones de distintas funciones gr 
nuevas de la versión 2.0 de Turbo C (y de la versión 5.0 de Turbo Pascal), 
entre las que se incluyen las funciones setaspectratio, fillellipse, sector y set- 
writemode. Las demostraciones SetRGBPalette y 256 Color, sólo se ejecuta- 
rán correctamente, por supuesto, en sistemas VGA o sistemas con tarjetas 
visuales compatibles. En un sistema EGA, por ejemplo, los dos segmentos de 
demostración anteriores podrán ejecutarse, pero quedarán restringidos a la 
paleta por omisión EGAVGA de 16 colores. 

En los programas HSI o VGADEMO, son de interés para el programador 
la función DetectVGA256 y el procedimiento VGASetAllPalette. Aunque los 
códigos fuente de ambos programas de demostración están escritos en Pascal, 
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no debería resultar difícil a los programadores de C convertirlos para su uso 
en las aplicaciones de C++. 


Apéndice E 


Las fuentes de 
caracteres gráficos 


A continuación se muestran diez fuentes de caracteres gráficos. Las fuentes 0 
a 4 son las fuentes de caracteres gráficos distribuídas con Turbo C, Turbo 
Pascal y Turbo Prolog. Las fuentes 5 a 9 se suministran con el Editor de 
Fuentes Turbo (consulte el capítulo 15). 

Las siguientes ilustraciones sobre fuentes se crearon escribiendo cada una 
de ellas sobre la pantalla (VGA-640x480) y capturando la imagen en forma 
de archivo ,.PCX, Cada fuente se creó mediante dos imágenes separadas, que 
luego se recombinaron para dar origen a una única ilustración. 

La apariencia exacta de cada fuente variará en función de la resolución de 
la pantalla y de la ampliación de los caracteres. Por ejemplo, en los modos 
EGA, los caracteres comprendidos entre BOh y B2h pueden llegar a mostrar 
cierta distorsión en la parte inferior, donde las instrucciones de los segmentos 
se "desplazan" ligeramente cuando se proyectan sobre las imágenes de pixels. 
Esto es de esperar y no suele observarse normalmente en la pantalla. 

Además, la apariencia global de los caracteres, por lo general, es más 
suave (debido a la tendencia de los pixels iluminados a "fundirse") que la que 
tienen sobre el papel. 

Las versiones de las fuentes 1...4 de la Tabla E-1 son versiones expandidas 
de las fuentes distribuídas originalmente, como ocurre con las suministradas 
con la utilidad del editor de fuentes Turbo. 
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Tabla E-1 Fuentes de caracteres gráficos 


Fuente Nombre de la fuente Tipo 

0 DEFAULT_FONT Proyección de bits 
I TRIPLEX_FONT Segmentada 

2 SMALL_FONT Segmentada 

3 SANS_SERIF_FONT Segmentada 

4 GOTHIC_FONT Segmentada 

S SCRIPT_FONT Segmentada 

6 SIMPLEX_FONT Segmentada 

7 ITALIC_FONT Segmentada 

8 ROMAN_FONT Segmentada 


9 LARGE_FONT Segmentada 
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Archivo fuente: (agregado a GRAPHICS.LIB) - Tamaño = 3 


Número de fuente: 0 - DEFAULT_FONT - Pro 
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Número de fuente: 2 - SMALL_FONT - Segmentada 
Archivo fuente: LITT.CHR - Tamaño = 7 
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Número de fuente: 4 - GOTHIC_FONT - Segmentada' 


Archivo fuente: GOTH.CHR - Tamaño = 3 
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Número de fuente: 5 - SCRIPT_FONT* - Segmentada 


Archivo fuente: SCRI.CHR - Tamaño = 3 
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Número de fuente: 6 - SIMPLEX_FONT * - Segmentada 


Archivo fuente: SIMP.CHR - Tamaño = 3 
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Número de fuente: 7 - ITALIC_FONT* - 
Archivo fuente: TSCR.CHR - Tamaño = 3 
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Número de fuente: 8 - ROMAN_FONT? - Segmentada 


Archivo fuente: LCOM.CHR - Tamaño = 3 
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Número de fuente: 9 - LARGE_FONT! - Segmentada 
Archivo fuente: EURO.CHR - Tamaño = 1 


Nota 1: Los números y los títulos de las fuentes comprendidas entre la $ y la 
9 no están predefinidos. Los números de las fuentes que se han mostrado 
fueron asignados de forma arbitraria por medio de installuserfont, en el orden 
en que se asignó cada fuente a la tabla de fuentes internas durante la prepa- 
ración de estas ilustraciones. Los nombres de las fuentes son, asímismo, arbi- 
trarios, aunque son de una nemotécnica bastante clara. 


Vocabulario 


técnico bilingúe' 


TERMINO 
ORIGINAL 
EN INGLES 


array 


aspect ratio 


background 


bit mapping 


buffer 


by default 


TERMINO 
EMPLEADO EN 
ESTA OBRA 


array 


factor de aspecto 


fondo 


proyección de bits 


memoria intermedia 


por omisión 


VOCABLOS 
ALTERNATIVOS 
DE USO COMUN 


arreglo, lista, 
matriz, tabla 


relación de aspecto, 
factor de proporción 


background 
mapeado de bits, 
correspondencia de 


bits 


búfer, memoria 
tampón 


por defecto 


byte octeto byte 
CAD diseño asistido por diseño asistido por 
computador ordenador 
computer computadora computador, 
ordenador 


Ante la falta de un lenguaje estandarizado en castellano para las ciencias de la computación, se ha elaborado 
el presente vocabulario con la traducción que hemos dado en este libro a los principales términos de la 
versión original en inglés, así como vocablos alternativos de uso común en España y América Latina. Esta 
labor se verá compensada por el servicio que pueda prestar al lector, (N. del £.) 
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custom a medida personalizado 
driver controlador driver, conductor 
dummy nulo falso, ciego, vacío 
erase borrar eliminar 
event suceso evento 
flag indicador bandera, señalizador 
font fuente tipo de letra, juego 


implementation 


intrinsic 
input 
instance 
interface 
justification 
keyword 
library 
linkage 
loop 


mapping 


method 


mickey 


monocrome 


desarrollo 


intrínseco 
entrada de datos 
instancia 
interfaz 
justificación 
palabra clave 
biblioteca 
enlace 

bucle 
proyección 
procedimiento, 
función miembro 


mickey 


monocromo 


de caracteres 


implementación, 
implantación 


básico, primario 
ingreso 

modelo, caso 
interface, adaptador 
alineamiento 
palabra reservada 
librería, acervo 
montaje 

lazo 


correspondencia, 
mapeado 


método 
unidad de 
resolución del ratón 


monocromático 


VOCABULARIO TÉCNICO BILINGUE 


579 


mouse 
occurrence 


path 


pattern 


pieslice 


pixel 


plotter 
pointer 
precedence 


radioboton 


scope 


scrollbar 


set 


setting 


setup 


stream 
string 
stroke 


stroked font 


ratón 
ocurrencia, instancia 


camino 


patrón 


diagrama de tarta 


pixel 


trazador gráfico 
puntero 
precedencia 
radiobotón 
recursividad 
línea de pixels 
alcance 


barra de desplazamiento 


conjunto 


activación, carga de 
valores 


configuración 


canal 
cadena 
segmento 


fuente segmentada 


mouse 
caso 


vía de acceso, 
ruta de acceso 


modelo 


diagrama de pastel, 
diagrama de sectores 


elemento de imagen, 
punto de imagen 


ploter 

apuntador 

prioridad 

botón de radio 
recursión 

línea de exploración 
ámbito 


barra de 
enrollamiento 


juego 

asignación de valores 
definición del 
entorno 

flujo, corriente 

tira, serie 

trozo 


fuente troceada 


580 PROGRAMACIÓN DE GRÁFICOS EN TURBO C++ 
toolkit herramienta de toolkit, kit de 
desarrollo herramientas 
utility utilidad utillería 
viewport ventana gráfica vista gráfica 
vue-meter medidor, VU-metro vumetro 


Indice analítico 


A 


adaptador gráfico de color. Ver CGA 
ADD-DRVR,BAT, 80 
ADD-FONT.BAT, 80 
angulos, 261 
animación de imágenes, 156 
morfológicas, 161, 176 
Desplazarlmagen, 169 
retención del fondo, 186 
imágenes combinadas, 161, 162 
ANIMADO1.C, 190 
ANIMADOZ2.C, 201 
aplicaciones gráficas 
modo absoluto versus modo relati- 
vo, 41 
apuntes sobre señales de vídeo, 273 
arcos, 52, 53 
función arc, 54 
arcoordstype, 56 
ARCHIMAG.C, 265 
archivos de proyecto, 79 
array gráfico multicolor (MCGA), 9 
ASCIIZ, 89 


B 


bar3d, 49 
barra atrás, 11 
biblioteca gráfica, 78 


biblioteca Turbo, 6 
Borland Internacional, 6 
borracadena, 92, 96 
borrarbloque, 94 


c 


cálculos vectoriales, 259 
caracteres ASCII, 91 
CGA, 6 

alta resolución, 276 

color, 274 
circle, 53 
cleardevice, 25 
clearviewport, 26 
closegraph, 18 
color 

fondo, 33 

paletas/modos de baja resolución, 

32 

relleno, 57 

valores, 34-36 
COLORCUB.C, 281, 287 
COLORS.C, 282, 291 
compilador integrado, 7 
conjunto de Mandelbrot, 484 

bibliografía, 495 
CONTROLA.C, 81 
controladores 

enlazador, 81 
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externos, 80 
gráficos, 81 
ratón, 336 
tortuga, 213 
controladores y fuentes enlazados, 80- 
81 
coordenadas cartesianas, 211, 259 
COPY PUT, 63 
coseno, 261 
cursor software, 380 
curva Henon, 489 
curva Dragon, 493 
curva de Malthus, 491 
curvas, 52, 53, 54 


D 


DEFAULT_FONT, 71 

demostración gráfica de la tortuga, 
221 

detectgraph, 8 

dibujos de la tortuga, 219 

direcciones de textos gráficos, 72 

drawpoly, 49 


E 


editor de Fuentes, 333 
caracteres completos, 343 
clipboard (portapapeles), 342 
fuentes completas, 343 
fuentes de símbolos, 351 
global. 345 
referencia de órdenes, 344 
Show, Exit, 344, 345 
Show, Font, 344 
Show, String, 344 


Show, Plotter, 344 
editor de fuentes Turbo, 333 
EGA/VGA, 6, 52 
color, 277 
cubo de las relaciones entre colo- 
res, 280 
EGAVGA.BGI, 81 
manipulación del color y del tono, 
279 
ellipse, 54 
entorno de desarrollo integrado, 77 
EP_GRAPH,I, 324 
errores 
códigos de error gráfico, 11-12, 13 
enlazador, 83 
errores del enlazador, 83 
estilos de líneas, 46, 47 
EURO.CHR, 353 


F 


factor de aspecto visual, 51 
FactorAspecto, 52 
FE.EXE, 333 
fillellipse, 56 
fillpoly, 50 
fillsettingstype, 60 
floodfill, 58 
formato de las fuentes segmentadas 
BGI, 353 
fractales 
bibliografía, 495, 496 
definidos, 484 
fuentes segmentadas, 72, 91, 96, 465 
fuentes, 71 
a medida, 351 
editor de fuentes, 333 
internas versus externas, 72 
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matrices de bits, 72 
segmentadas, 91, 96 
fuentes de símbolos, 334 
fuentes internas, 72 
fuentes gráficas, 82 
fuentes a medida, 351 
fuentes de textos gráficos, 71 
fuentes externas, 73 
FUENTES.C, 83 
función rectangle, 48 
función bar, 48 
funciones de trazado de líneas, 44-45 
funciones de texto, 70 
funciones de la impresora 
imprime_grafico, 300 
pausa_presentacion, 321 


G 


getarccoords, 55 
getaspectratio, 51 
getbkcolor, 34 
getcolor, 33 
getdrivername, 15 
getfillpattern, 60 
getfillsettings, 60 
getgraphmode, 14 
getimage, 62 
getlinesettings, 47 
getmaxcolor, 31 
getmaxmode, 15 
getmaxx, 39 
getmaxy, 39 
getmodename, 15 
getmoderange, 14 
getpalette, 35 
getpixel, 44 
getviewsettings, 27 


getx, 40 

gety, 40 

GOTHIC_FONT, 71 

GPRINT.I, 96 

gprintc, 90, 98 

gprintf, 88, 97 

gprintxy, 91, 99 

gráficos de barras, 48 

gráficos de tortuga, 212 
ángulos, 210 
con trazadores gráficos, 230 
coordenadas, 210 
desplazamientos, 213 
órdenes, 211, 212, 213, 216, 218, 

219, 220 

TORTUGA.I, 210 
ventana de la tortuga, 211 

graphdefaults, 16 

grapherrormsg, 13 

_graphfreemem, 84 

_graphgetmem, 84 

GRAPHICS.LIB, 78 

graphresult, 12 


H 


herramientas de edición de fuentes, 
341 


I 


IBM8514, 277 
imagesize, 61 
impresoras, matrices de puntos, 296 
apaisado, 297 
cálculo de los caracteres gráficos, 
297-298 
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controlador gráfico, 299 
modo IBM, 296 
modos, 297 
vertical, 297 
impresoras, laserjet, 304, 306, 307 
apaisado, 306 
caracteres gráficos, 309 
copias múltiples, 318 
escala de grises, 306 
función escala_grises, 319 
paletas de escalas de grises, 309 
proyección auténtica en la escala 
de grises, 324 
utilidad de impresión de la panta- 
lla, 305 
vertical, 306 
IncorporaControladores, 84 
IncorporaFuentes, 81 
índice de paleta, 35 
información de entorno del texto, 75 
información de la tortuga, 220 
iniciación, 11 
initgraph, 10, 11 
instalaTipo, 352 
instaluserfont, 72, 352 
instrucciones MOV y COPY_PUT, 47 


J 


juegos de caracteres, 91 
justificación, 70 
términos sobre textos, 71 


L 


LARGE_FONT, 352 
LCOM_CHR, 352 


lenguaje C, 259 
lenguaje ensamblador, 47 


LineaXOR, 188 
linesettingstype, 48 
listas 
argumentos variables, 88 
listas de consulta, 7 
LJ-GRAPH.I, 305, 326 


M 


manipulación de imágenes, 61 
rotación de textos, 264 
memoria, 17 
gestion, 17 
memoria intermedia 
cadena terminada en el carácter 
nulo, 89 
gráfica, 61 
mickeys, 373 
modem nulo, 337 
modem, 336 
modos visuales, 9 
admitidos por Turbo C++, 9 
modos gráficos, 44 
modos 
alta versus baja resolución, 33 
gráficos, 44 
gráficos y páginas múltiples, 28 
monográfico, 299 
sistemas monocromo y PON-DE- 
MO, 63 
vídeo, 9 
moverel, 41 
moveto, 40 
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N programas 
dibujos, 228 
NUEVASFU.C, 355 puntos de coordenadas para líneas, 44 
número de identificación de la fuen- putimage, 62 
te, 352 putpixel, 43 
números imaginarios, 485 
R 
O 
ratón, 369, 372, 374-376, 378 
opciones controladores, 336 
salida de la imagen, 62 Rpos, 371 
opciones para la muestra de imáge- Rbrillante, 377 
nes, 63 Recambio, 373 
opciones de la tortuga, 229 rectángulos, 48 
ordenes gráficas para la tortuga, 211 recursividad, 487 
outtext, 70 registerbgidriver, 81 
outtextxy, 70 registerbgifont, 82 
registerfarbgidriver, 78 
registerfarbgifont, 79 
P restorecrtmode, 17 
Riniciar, 369 
páginas de video alternativas, 158 Rliberado, 372 
páginas gráficas múltiples, 27 Rlimitex, 373 
paletas predefinidas (Modos CGA), Rlimitey, 373 
36 Rmuestra, 370 
Palettetype, 33, 35 Roculto, 37 
Pascal, 259 ROMAN_FONT, 352 
patrones de relleno, 57-59 rotación 
pieslice, 57 fraccionaria, 254 
pixels imágenes, 251 
funciones, 45 técnica, 250 
y el factor de aspecto, 51 rotaciones del texto, 264 
y las tarjetas de vídeo, 9 ROTAR.C, 267 
polígonos, 48 Rpulsado, 372 
Pon_Cursor, 379 Rrelación paso, 374 
PON_DEMO.C, 64 Rsitua, 371 


procedimiento PaginasVideo, 29 Rvelocidad, 375 
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S 


SANS_SERIF_FONT, 71 
SCRI.CHR, 353 
SCRIPT_FONT, 352 
sector, 57 

selección del color gráfico, 33 
seno, 261 

setactivepage, 29 
setallpalette, 37 
setaspectratio, 52 
setbkcolor, 33 

setcolor, 32 

setfillpattern, 58 

setfillstyle, 59 
setgraphbufsize, 61 
setgraphmode, 16 
setlinestyle, 46 

setpalette, 35 

setrbgpalette, 37 
settextjustify, 73 
settextstyle, 71 
setusercharsize, 74 
setviewport, 26 
setvisualpage, 29 
setwritemode, 47 
SIMP.CHR, 353 
SIMPLEX_FONT, 352 
sistema de color RGBI, 274 
sistemas de color RrGgBb, 274, 278 
SMALL_FONT, 71 


T 


tarjeta EGAMONO, 28 


tarjeta gráfica de vídeo IBM-8514, 37 


Tarjetas de vídeo 
IBM-8514, 6 
lista, 9 
en Turbo Pascal y Turbo C++, 8 
teorema de Pitágoras, 263 
términos de justificación del texto, 73 
textheight, 76 
textsettingstype, 76 
textwidth, 76 
TLIB, 78 
TORTUGA.C, 221, 238 
TORTUGA,I, 230 
trazador gráfico, 336 
puerta serie, 344-345 
TRIPLEX_FONT, 71 
TSCR.CHR, 353 
Turbo C++ 
y fuentes gráficas, 
y juegos de caracteres, 91 
y la biblioteca de funciones gráfi- 
cas, 79 
y tarjetas de vídeo, 9 
y tarjetas gráficas múltiples, 27 
Turbo Pascal, 79, 259 
y estilos de líneas, 46 
y fuentes gráficas, 70 
y juegos de caracteres, 91 
y tarjetas de vídeo, 9 


U 


USERBIT_LINE, 47 
utilidad BGIOBJ, 79 
y fuentes múltiples, 71 
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V ventana gráfica 
afectada por cleardevice, 25 
y graphdefaults, 16 


va_arg, 89 
va_end, 90 límites, 27 
va_start, 89 VGA, 277 
valores de color de fondo, 34 

XxX 


XOR_PUT, 63 


Programación de Gráficos en Turbo C' ++ 
Ben Ezzell 


¡Domine la potencia de Turbo C++! 

Í 
Con la nueva versión del compilador Turbr C++ de Borland International, los programadores 
disponen por fin de la he.ramienta que necesitaban para crear gráficos de alta_calidad. 
Programación de Gráficos en Turbo C++ es el grito definitivo en el desarrollo de gráficos 
profesionales, al poner a disposición de 19 profesionales de Turbo C++ cientos de poderosas 
funciones gráficas. 


Una vez más,. el expert programador Ben Ezzell explica los pormenores internos y externos 
de la programación de gráficos con sabios consejos y prácticas de programación. Ezzell comenta 
Cada uno de los ¡aspectos críticos de los gráficos, incluyendo el trazado de curvas y rectas, la 
combinación de textos y gráficos, la manipulación de imágenes, la selección del color, y creando 
sofisticadas animaciones. Entre otros temas se incluyen: 

e Funciones de tratamiento de ventanas, pantallas y páginas gráficas. 

e Pantallas a+ ¿ráficos comerciales. 
Salida por impresoras y trazadores gráficos. 
Ennciones de gráficos de tortuga: 
Funciones de tratamiento del ratón. 
Manipulación de archivos de imágenes. 
bl editor de fuentes Turbo. 
Desarrollo de fractales. 


Con ayuda de: este libro, los lectores podrán aprender rápidamente técnicas de animación, 

crear sus propios objetos de control, y dominar completamente la biblioteca gráfica. Cada 
capítulo finaliza con un importante programa de ejemplo. Todos los programas de muestra están 
disponibles ¿n un disc) que puede conseguirse en Addison-Wesley/Díaz de Santos, a través del 
cupón anex» al final del libro. y 


En los tiempos que corren, en los que abundan los programas con presentación gráfica elinterfaces 
de usuario, Programación de Gráficos en Turbo C++ es un aditivo esencial en su 
caja de herramientas Turbo C++ 


Ben Ezzell es un escritor y programador profesional especializado en compiladores de Borland. 
Ha escrito numerosos libros, entre los que se incluyen Thrbo C++ Programming y 
Graphics Programming in Turbo Pascal 5.5 (Addison-Wesley, 1990). 
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